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List String-out Regions 
(String-out Subroutine Regions also Required) 



RE 


LA4000 


RE 


LB4013 


RE 


LC4042 


RE 


MC4067 


RE 


LD4105 


RE 


MD4132 


RE 


ND4165 


DU 


r r? An i "7 


1\LJ 


LiE<<4£ 1 1 


RE 


LF4241 


RE 


NF4305 


RE 


LG4344 


RE 


LH4374 


RE 


LI4441 


RE 


LJ4503 


RE 


L04545 


RE 


LP4551 


RE 


LQ4612 


RE 


LR4642 


RE 


LS4653 


RE 


LT4721 


RE 


LU4762 


RE 


LV5011 


RE 


LW5065 


RE 


LX5114 


RE 


ZA5141 


RE 


ZB5204 


RE 


ZC5240 


RE 


ZD5271 


RE 


ZE5306 


RE 


ZF5347 


RE 


ZG5404 


RE 


ZH5444 


RE 


ZI5503 


RE 


ZJ5544 


RE 


ZK5602 


RE 


ZL5634 


RE 


ZM5664 


RE 


PB5675 


RE 


PC5730 


RE 


PD5773 


RE 


PE6025 


RE 


PG6040 


RE 


PH6072 


RE 


PI6130 


RE 


PJ6163 


RE 


PK6211 


RE 


PL6253 


RE 


PM6301 


RE 


PN6334 
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RE 


P06354 


RE 


PP6405 


RE 


PQ6445 


RE 


PR6476 


RE 


PT6541 


RE 


PU6603 


RE 


PV6646 


RE 


PW6716 


RE 


PX6743 


RE 


PY6767 


RE 


PZ7037 


RE 


SA7063 


RE 


SB7125 


RE 


SC7163 


RE 


SD7207 


RE 


SE7245 


RE 


SF7306 


RE 


SG7365 


RE 


SH7424 


RE 


SI 7463 


RE 


SK7506 


RE 


SL7550 


RE 


LY7607 


RE 


LZ7660 


RE 


WR50023 


RE 


WP22 



Indicators, Counters, 
Temporaries, etc. 
Heading List 

Rewind List 

Maximum number of Call Words 

in Rewind List 
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List String-Out Routine 



5 

6 

7 

10 

11 
12 



IA 
MJ 
TV 
TU 

TP 

TP 

RP 
TP 
TP 
QS 

RP 
TP 
CA 



LA 


LW12 
LW12 

LW13 

LV12 

10074 
LV12 
LV22 
Q 

10051 

LV12 

LA13 



CT 

LP17 

LP23 

EW3 

WL5 

LA7 
LZ 

Q I 

12 J 

LB 
LY 



Begin List String-out 

Exit to string-out control 

Preset add. 1st var. ind. word -1 

Preset inst. to preset add. in assem. 

blk. 

Preset add. of 1st C.W. in S.O. -1 in 

"C.W. to S.O." rtn. 

Zeroize variable count in String-out 



Zeroize Heading List 

Set "list** indicator in fixed 
location 12. 

Zeroize assem. blk & temps. 



® 





1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 

15 

16 
17 
20 

21 
22 
23 

24 
25 
26 



IA 
RJ 

EJ 
EJ 
EJ 
TP 

QJ 

TP 
QJ 
TP 
QJ 
EJ 
EJ 
EJ 
EJ 

EJ 
MJ 
IJ 



LB 
SY 

LX14 

LX15 

LX12 

SY7 

LC yes 

SY11 

LB10 yes 

SY12 

LB12 no 

LX13 

LX14 

LX15 

LX16 



SY1 

LB 
LB 
ZA 

Q 

LB6 no 

Q 
LB12 no 

Q 

ZA4 yes 

ZA13 

LB22 yes 

LB22 yes 

ZA17 yes 



LX17 LB20 
ZA30 
LY44 LB22 no 



MJ ZA24 

RJ SY SY1 

EJ LX12 LB25 

MJ LB4 

TP LY44 A 

ZJ ZA37no LF yes 

CA LB27 



Yes— ->Alarm *1 



Get next symbol (1st six char. sym. 

-> A) 

Sym. = comma? 

Sym. = semi-colon? 

1st var. = "tape*? 

Var. ind. — >Q 

Sym. = variable? 

Digit or dec. pt. ind. — > Q 

Sym. possibly = constant? 

Sym. contains letter ind. — > Q 

Sym. = constant? Yes — » Alarm #2 

Sym. = "A .**? Yes -^ Alarm *3 

Sym. = comma? 

Sym. = semi-colon? 

Sym. = open parenthesis? Yes =^> 

Alarm #4 

Sym. = close parenthesis? 

No=^>Alarm #6 

Decrease parenthesis level; close 

parentheses on level zero? 

Yes=* , Alarm #5 

Get next symbol 

Sym. = tape? Yes — > tape designation 

phase 

No— > © 

"Tape" on parenthesis level zero? 
No=* printout #7 
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Variable Phase (Fix & Fl. Pt. Var. Section) 



© 





IA 


LC 







RJ 


RH 


RH1 


1 


TP 


SY2 


LY16 


2 


TP 


LV2 


A 


3 


TJ 


SY5 


MC6 yes 


4 


RJ 


TA 


TA1 


5 


MJ 





LC17 


6 


TP 


TA4 





7 


TP 


Q 


TF2 


10 


QT 


LV5 


A 


11 


EJ 


LV5 


LD 


12 


EJ 


LV6 


LE 


13 


EJ 


LV7 


MC6 


14 


EJ 


LV10 


MC2 


15 


TJ 


LV43 


ZB 


16 


MJ 





ZB5 


17 


TP 


LV11 


TF 


20 


TP 


SY2 


TF1 


21 


TP 


LV12 


TF3 


22 


RJ 


TK 


TK1 


23 


TP 


SY10 


Q 


24 


QJ 


MC yes 


MC4 no 




CA 


LC25 





Check for legal variable sym. 

Variable Sym. — > temp. 

6 in n V"— >A 

# char, in sym. > 6? 

Var. in Combination List? 

Not in List 

Var. in Comb. List— >CW — » Q 

v 

1st two octal digits of CW — > A 

Subscripted var. (77 ) CW? 

Function (66 ) CW? 

Floating point var. (65 ) CW? 

Fixed point var. (64 ) CW? 

Pseudo Op. (5 ) CW? — > Alarm *8 

No; Library (4- ) CW? ==> Alarm *9 

Number of words in file (3 in "u") — > 
1st line file build-up 
XS3 sym. — > 2nd line file build-up 
Format (zero) — > 4th line file build-up 

Obtain avail, last 3 digits for 65 

or 64 CW 

Fix. pt. ind. — > Q 



Non-Subs (Fix & Fl. Pt.) Var. Section 







IA 


MC 









AT 


LV10 


TF2 




1 


RJ 


TE 


IE1 


Fix. 


2 


RJ 


LP 


LP4 


Pt. 










Var. 


3 


MJ 





MC7 




4 


AT 


LV7 


TF2 




5 


RJ 


IE 


TE1 


Fl. 


6 


RJ 


LP 


LP1 


Pt. 










Var. 


7 


TP 


TF2 


Q 




10 


RJ 


LO 


LOl 




11 


RJ 


LR 


LR1 




12 


RJ 


SY 


SY1 


@ 


13 


EJ 


LX14 


LB22 


v« <• 


14 


EJ 


LX15 


LB22 




15 


MJ 
CA 




MC16 


ZB12 



64 — CW. — > 3rd line file build-up 
Add fix pt. var. file— > Combination List 
Adv. & ck. var. count & set fix pt. 
ind. bit. 

65 C.W.— > 3rd line file build-up 

Add fl. pt. var. file— > Combination List 
Adv. & ck. var. count & set fl. pt. ind. 
bit 

64 or 65 C.W.— >Q (input var. 

list S.O.) ^ 

64— or 65 C.W.— > var. list S.O. 

Store XS3 sym. for Hdg. Edit 
Get next sym. 
Sym. = comma? 
Sym. = semi-colon? 
No.=*> Alarm *10 
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Subscripted Variable Section 





IA 


LD 







RJ 


LO 


L01 


1 


RJ 


LP 


LP1 


2 


RJ 


LR 


LR1 


3 


TV 


TA5 


LY 


4 


TP 


LV12 


LY45 


5 


RJ 


SY 


SY1 


6 


EJ 


LX16 


LD10 


7 


MJ 





ZB21 


10 


TP 


LV12 


LY46 


11 


RJ 


LR 


LR1 


12 


RJ 


SY 


SY1 


13 


TP 


SY7 


Q 


14 


QJ 


MD yes 


LD15 no 


15 


TP 


SY11 


Q 


16 


QJ 


ND yes 


LD17 no 


17 


EJ 


LX17 


ND20 


20 


EJ 


LX13 


ZB27 


21 


EJ 


LX14 


LD12 


22 


EJ 


LX15 


LD12 


23 


EJ 


LX16 


ZC 


24 


MJ 





ZC6 




CA 


LD25 





77 CW — » Var. List S.O. _ 

Adv. & check var. count & set b'l. 
Pt. Ind. bit 

Store XS3 sym. for Heading Edit 
No. of subscripts— > Index ctr 
( Cl ) 

Zeroize count of subscripts proc- 
essed 

Get next sym. 
Sym. = open parenthesis? 
No=> Alarm #11 

Set subscript parenthesis level 
= zero 

Store XS3 sym. for Hdg. Edit 
Get next sym. 
Variable ind. — > Q 
Sym. = variable? 
Digit or dec. pt. ind. — > Q 
Sym. possible = constant? (1st 
char. = digit or dec. pt.) 
Sym. = close parenthesis? 
Sym. = A .? Yes ==> Alarm #12 
Sym. = comma? 
Sym. = semi-colon? 
Sym. = open parenthesis? Yes 
— * Alarm #13 
No =*• Alarm #14 
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11 



12 



13 



16 



17 





IA 


MD 







EJ 


LX12 


ZC14 


1 


RJ 


RH 


RH1 


2 


TP 


LV2 


A 


3 


TJ 


SY5 


MD31 yes 


4 


RJ 


TA 


TA1 


5 


MJ 





MD17 


6 


TP 


TA4 


Q 


7 


QT 


LV5 


A 


10 


EJ 


LV10 


ND7 


11 


TJ 


LV7 


MD15 



12 

13 
14 
15 

16 
17 
20 
21 

22 
23 
24 

25 
26 
27 

30 
31 
32 



TJ LV6 



TJ 
MJ 
TJ 

MJ 
TP 

QJ 
TP 

TP 
TP 
RJ 

AT 
RJ 
TP 

MJ 
TP 

QJ 
CA 



LV5 



LV43 



ZC21 

ZO 
ZE 
ZF6 



ZF 

SY10 Q 

MD21 ZC21 no 

LV11 TF 

SY2 TFI 

LV12 TF3 

TK TK1 

LV10 TF2 

TE TE1 

TF2 Q 

ND7 

SY10 Q 
ND11 yes ZC21 no 
MD33 



Variable = "Tape"? Yes=^ Alarm #15 
Legal variable sym. (No; Alarm string-out 
subs) 



No. char, in sym. > 6? 

Var. in Comb. List? 

Not in list 

Var. in list=>CW — > % 

1st two octal digits of CW — > 

64 CW? (Fix Pt. Var.) 

4 or 5 CW? (Lib. Rtn 

Pseudo Op. ) 

(fl. pt. var.) 



or 



Yes 



(function) Yes 

(subs. var. ) *=> 

(pseudo op. ) Yes 



Alarm #17 
Alarm #18 
■a> Alarm 

► Alarm #19 



65 CW? 

Alarm #16 

66 CW. ? 

77 C.W.? 

4 C.W.? 

#20 

5 CW? (library rtn.) 

Fix pt. var. ind. — > Q 

Sym.= fix pt. var? No =^ Alarm #16 

No. of words in file (3 in "u") — ■> 1st 

line file build-up 

XS3 sym. — > 2nd line file build-up 

Format (zero) — > 4th line file build-up 

Obtain avail, last 3 digits for 64 — 

CW 

64 CW — > 3rd line file build-up 

Add fix pt. var. file — > Combination List 



64— CW 
S.O.) 



Q (input for var. list 



Fix pt. var. ind. — >Q 
Sym.= fix pt var.? No 



Alarm #16 
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IA 


ND 







TP 


SY13 




1 

J. 


QJ 


ZF14 yes 


ND2 n o 


2 


RJ 


RD 


RD1 


3 


TP 


SY2 


RS4 


4 


RJ 


RS2 


RS 


5 


TP 


RS3 


A 


6 


RJ 


GW 


GW1 



RJ LO 



LOl 



10 


RJ 


LR 


LR1 


11 


RA 


LY45 


LV 


12 


RJ 


SY 


SY1 


13 


EJ 


LX14 


LD11 


14 


EJ 


LX15- 


LD11 


15 


EJ 


LX13 


ZB27 yes 


16 


EJ 


LX17 


ND20 


17 


MJ 





ZF24 


20 


IJ 


LY46 


LD12 no 


21 


RJ 


LR 


LR1 


22 


TP 


LY45 


A 


23 


EJ 


LY 


ND25 


24 


MJ 





ZG 


25 


RJ 


SY 


SY1 


26 


EJ 


LX14 


LB22 


27 


EJ 


LX15 


LB22 


30 


EJ 


LX13 


ZG5 


31 


MJ 





ZG12 




CA 


ND32 





Superscript indicator — >Q 

Sym.= Superscript const.; Yes = ^Alarrn 

#21 

Const. = fix pt.? (No; Alarm in string-out 

subs) 

XS3 fix point constant —> input conversion 

routine 

Convert XS3 const. — > octal 

Octal constant — >A 

Constant— > Const. Pool & Const. CW 

% 

64 or 67 CW — > var. list 

string-out 

Store XS3 sym. for Hdg. Edit 

Adv. count of subscripts processed 

Get next sym. 

Symbol = comma? 

Symbol = semi-colon? 

Sym.= End sent, sym ? Yes => Alarm #12 

Sym = close parent.? 

No => Alarm #22 

Is this close subscript parent.? (i.e, 

parent, on level zero) 

Store XS3 close parent* for Hdg. Edit 

No. of valid subscripts processed — > A 

Correct no. of subscripts for subs, var.? 

No=> Alarm #23 

Get next sym. 

Sym.= comma? 

Sym.= semi-colon? 

Sym.= end sent, sym.? Yes =& Alarm #24 

No=^ Alarm #25 
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Variable Phase (Function Section) 







IA 


LE 




21 





RJ 


LO 


L01 




1 


RJ 


LP 


LP1 




2 


RJ 


LR 


LR1 




3 


RJ 


SY 


SY1 




4 


EJ 


LX16 


ZG16 




5 


MJ 





MC13 


/— \ 


r 6 


TV 


LW26 


LE11 


CM 


7 


TP 


LV12 


LY47 


C t*h 


10 


TP 


SZ2 


LY50 


ndle 
ctio 
17A 


11 
12 


RJ 
EJ 


SY 
LX17 


[SY1] 
LE20 yes 


(O Eft 

-C 3 

o u H 


13 
14 


EJ 
EJ 


LX16 
LX12 


LE17 yes 
ZG27 yes 


O r-t 
CD <C 


15 


EJ 


LX13 


ZG33 yes 


C W 












16 


MJ 





LE11 


3 CD 

o S • 


17 


RA 


LY47 


LV1 


*-l 3 <H 
.Q O) CD 


20 


IJ 


LY47 


LE11 


SUM 

W cow 


121 


MJ 
CA 



LE22 


[30000] 



66 CW — > Var. list string-out 

Adv. & check var. count. & set ind. bit 

(fl. pt.) 

Store XS3 symbol for Hdg. Edit 

Get next sym. 

Sym.= open parent.? Yes => Alarm 

#26 

No=> function symbol w/o arguments 



Set function parent, level 
Function symbol — > temp. 



zero 



Sym.= close parenthesis? 

Sym.= open parenthesis? 

Sym.= "Tape"? Yes=> Alarm #27 

Sym.= space-period ( A.)? Yes =^ 

Alarm #28 

Advance function parent, level by two 
Close parent, for arguments of function? 
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IA 


LF 







RJ 


SY 


SY1 


i 


EJ 


LX13 


ZH 


2 


TP 


SY11 


Q 


3 


QJ 


NF yes 


LF4 nc 


4 


TP 


SY7 


Q 


5 


QJ 


LF13 yes 


LF6 no 


6 


EJ 


LX14 


ZH4 yes 


7 


EJ 


LX15 


ZH4 yes 


10 


EJ 


LX16 


ZH10 yes 



Tape Designation Phase 



Get next symbol 

Sym.= " A ."? Yes=> Alarm #29 
Digit or dec. pt. ind. — »Q 
Tape sym.= constant? 
Var. ind. — >Q 
Tape sym.= variable? 
Sym.= comma? Yes ■=> Alarm #30 
Sym.= semi-colon? Yes => Alarm #30 
Sym.= open parent.? Yes — * Alarm 
#31 
11 EJ LX17 ZH14 yes Svm.= close parent.? Yes— ?Alarm 

#32 

No => Alarm #33 

Sym.= legal variable? (Alarm in 
string-out subs) 
6 in "v"— >A 
No. of char, in sym. > 6? 
Var. in Combination List 
Not in list 

Var. in ii s t=^CW > Q v 
1st two octal digits of CW — > A 

64 CW? (fix pt. var.) 

4 CW? Pseudo Op. ) Yes => Alarm 

#35 

5 CW? (Lib. Rtn.) Yes => Alarm #34 

No =*- Alarm #36 

Fix. pt. var. ind. — > Q 

Sym.= fix pt. var.? No => Alarm #36 

No. of words in file (3 in "u") — >lst 

line file build-up 

XS3 sym. — > 2nd line file build-up 

Format (zero) — > 4th line file build-up 

Obtain avail, last 3 digits for 64 — 

CW 

64 — CW — -> 3rd line file build-up 

Add. file to Comb. List 

64 — CW — > "u" of A 

64 CW — > "u" of A 

Fix. pt. ind. — > Q 

Sym.= fix. pt var.? No =^ Alarm #36 



12 


MJ 





ZH20 


13 


RJ 


RH 


RH1 


14 


TP 


LV2 


A 


15 


TJ 


SY5 


LF42 yes 


16 


RJ 


TA 


TA1 


17 


MJ 





LF26 


20 


TP 


TA4 


Q 


21 


QT 


LV5 


A 


22 


EJ 


LV10 


LF40 yes 


23 


TJ 


LV43 


ZH32 yes 


24 


TJ 


LV10 


ZH25 yes 


25 


MJ 





ZI 


26 


TP 


SY10 


Q 


27 


QJ 


LF30 yes 


ZI no 


30 


TP 


LV11 


TF 


31 


TP 


SY2 


TF1 


32 


TP 




TF3 


33 


RJ 


TK 


TK1 


34 


AT 


LV10 


TF2 


35 


RJ 


TE 


TE1 


36 


SP 


TF2 


17 


37 


MJ 





NF12 


40 


SP 


TA4 


17 


41 


MJ 





NF12 


42 


TP 


SY10 


Q 


43 


QJ 


NF26 yes 


ZI no 




CA 


LF44 





577 



Tape Designation Phase (cont.) 





IA 


NF 







RP 


20011 


NF2 


1 


EJ 


LX1 


NF5 


2 


EJ 


LX 


ZM 


3 


RJ 


RD 


RD1 


4 


MJ 





ZI7 


5 


TP 


A 


RS4 


6 


RJ 


RS2 


RS 


7 


TP 


RS3 


A 


10 


RJ 


GW 


GW1 


11 


SP 


Q 


17 


12 


TP 


A 


WL4 


13 


TU 


WR 


NF14 


14 


RP 


£3000(0 


NF16 


15 


EJ 


WR1 


NF26 yes 


16 


SP 


WR 





17 


TJ 


LW24 


NF22 no 


20 


TP 


A 


Q 


21 


QJ 


NF26 


ZM4 



Tape sym.= XS3 {2,3,4,5,6,7,8,9,10 
Tape number =1? Yes=^ Alarm #56 
Tape number = fixed point? (Alarm in 
string-out subs) 
=> Alarm #37 

Convert XS3 tape number. 

Octal tape # — > A 

Tape number —> const, pool & const. CW 

=>% 

67 CW (const, tape #)— >"u" of A 

Tape # CW (67 or 64 )— > S.O. 

list. 



Tape # CW in Rewind List 

Count of Tape # CW's in Rewind List 

— > A 

Max. no. CW's in Rewind List (18^q) 

(Q+)=> Alarm #57 printout 
(Q-) i =* , Printout made previously 
22 RA WR LV15 Adv. (1 in "u" & "v") count of CW's 

in Rewind List 
Form next avail, add. in Rewind List 

Tape # CW —> Rewind List 
Get next symbol 
Sym.= " A."? 
Sy:n.= comma? 
Sym.= semi-colon? 
Svm.= open parent.? Yes- — * Alarm 
#38 
33 EJ LX17 ZI22 Svm.= close parent.? Yes — »Alarm 

#39 

No =*> Alarm #40 
Error count for sentence 
Has there been error? Yes => Warning 
#41 



23 


SA 


LW25 





24 


TV 


A 


NF25 


&b 25 


TP 


WL4 


[30000] 


® 26 


RJ 


SY 


SY1 


27 


EJ 


LX13 


NF35 


30 


EJ 


LX14 


NF35 


31 


EJ 


LX15 


NF35 


32 


EJ 


LX16 


ZI16 



34 


MJ 





ZI26 


35 


TP 


UZ3 


A 


36 


ZJ 


ZI35 yes 


LG no 




CA 


NF37 
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Heading Phase (Edit Variable Names) 



-*A 
^5 *** 7* v a r . J x £ " m 

(A) + add. in Hdg. List — > preset add. 
1st var. in Hdg. List - 4 
Address 1st col. Hdg. - 4 — > temp. 
Preset add. of 1st var. ind. word 
Variable count — > index counter (C^) 
Preset avail, add. in assera. blk.— >Init. 
add. 
All variable names edited? 

Sym.= " A ."? Yes — >End list string-out 
Get next symbol 
Sym.= comma? 
Sym.= semi-colon? 

Sym.= open parent.? Yes — > Title or 
column heading. 
16 EJ LX17 ZJ Sym.= close parent.? Yes — » Alarm 

#42 

Sym.= " A."? Yes — » end list string-out 
No -=^ Warning #43 

Adv. "u" of NI — > add. next var. ind. 
word 

Var. ind. word — > input edit. var. 
subroutine 

Edited variable — > Hdg. List 
Adv. avail, assem. blk. add. by 4 — > add. 
next var. 



Zeroize assem. blk. (258 words) 







IA 


LG 




© 





TP 


LV17 


A 




1 


SS 


WL5 


i 

1 




2 


AT 


LW21 


LY2 




3 


ST 


LV42 


LY3 




4 


TU 


LW22 


LG22 




5 


TP 


WL5 


LY 




6 


TP 


LW23 


LY1 


© 


7 


IJ 


LY 


LG21 no 


@ 


10 


TP 


SY2 


A 




11 


EJ 


LX13 


LJ 




12 


RJ 


SY 


SY1 




13 


EJ 


LX14 


LG12 yes 




14 


EJ 


LX15 


LG12 yes 




15 


EJ 


LX16 


LG26 



17 


EJ 


LX13 


LJ 


20 


MJ 





ZJ4 


21 


RA 


LG22 


LV22 


22 


TP 


[30000] 


LT1 


23 


RJ 


LT 


LT2 


24 


RA 


LY1 


LV32 


25 


MJ 





LG7 


26 


RP 


10025 


LH 


27 


TP 


LV12 


LY17 




CA 


LG30 
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Heading Phase (Column Heading Section) 

IA LH 

TF GN4 A Get next character — *> A 

1 EJ LV30 LI Char. = open parent.? Yes — > title 

section 

2 TU LW22 LH21 Preset "u" of TP — ■> Add. 1st var. ind. 

word - 1 

3 TP LY3 LY2 Preset avail, add. in Hdg. List — > add. 

1st col. hdg. - 4 

4 RA LY13 LV13 Set col. hdg. bit in hdg. ind. — > 1 

5 RJ LP LP27 Adv. & ck. col. hdg. count 

6 TP LV12 LY Set level indicator (C x ) — > zero 

7 TP GN4 A 

10 EJ LX20 LH16 Char. = close parent. 

11 EJ LV30 LH34 Char. = open parent. 

12 EJ LV LH41 Char. = " A '*? 

13 RJ LQ LQ1 Store XS3 character for hdg. edit. 

14 RJ GN GN1 Get next char. — > A 

15 MJ LH10 

16 IJ LY LH13 no Close parent, on level zero? 

17 TP LW23 LY1 Preset avail, assem. blk. add. — > initial 

add. 

20 RA LH21 LV22 Adv. "u" of NI — > Add. next var. ind. 

word 

21 TP [30000] LT1 Var. ind. word — > input edit col. hdg. 

routine 

22 TV LY15 LT1 Char, count — »input edit col. hdg. 

routine 

23 RJ LT LT2 Edit col. hdg. 

24 RJ GN GN1 Get next char, (throw away close parent.) 

25 RJ SY SY1 Get next sym. 

26 EJ LX14 LH25 Sym.= comma? 

27 EJ LX15 LH25 Sym.= semi-colon? 

30 EJ LX13 LJ Sym.= " A ."? — > end list S.O. 

31 EJ LX16 LH36 Sym.= open parent.? 

32 EJ LX17 ZJ13 Sym. = close parent.? Yes -> Warning 

#44 

33 MJ ZJ17 No — > Warning #45 

34 RA LY LV Adv. parent, level by 1 

35 MJ LH13 

36 TP GN4 A Char. — » A 

37 RP 10025 LH5 

40 TP LV12 LY17 Zeroize assem. blk. 

41 RJ LQ LQ1 Store XS3 char, for Hdg. Edit 

42 RJ GN GN1 Get next char. 

43 EJ LX21 ZJ25 Char. = period? Yes => Warning ^46 

44 MJ LH10 
CA LH45 



580 



Heading Phase (Title Section) 







IA 


LI 









TP 


LV12 


LY 




1 


RA 


LY13 


LV33 




2 


TP 


LV23 


LY11 




3 


TV 


LV20 


LQ10 




4 


TP 


LW4 


LQ11 




5 


TP 


LV12 


LY15 


£& 


6 


RJ 


GN 


GN1 


§0 


7 


EJ 


LX20 


LI 16 




10 


EJ 


LV30 


LI 14 




11 


EJ 


LV 


LI36 


© 


12 


RJ 


LQ 


LQ22 




13 


MJ 





LI6 




14 


RA 


LY 


LV 




15 


MJ 





LI 12 




16 


IJ 


LY 


LI 12 


® 


17 


RJ 


GN 


GN1 




20 


EJ 


LX20 


LI22 




21 


MJ 





£La$j Om 




22 


RJ 


LS 


LSI 


@ 


23 


RJ 


GN 


GN1 


© 


24 


RJ 


SY 


SY1 




25 


EJ 


LX14 


LI24 




26 


EJ 


LX15 


LI24 




27 


EJ 


LX16 


LI33 




30 


EJ 


LX13 


LJ 




31 


EJ 


LX17 


ZK 




32 


MJ 





ZK4 




33 


TP 


GN4 


a 




34 


RP 


10025 


LH2 




35 


TP 


LV12 


LY17 




36 


RJ 


LQ 


LQ22 




37 


RJ 


GN 


GN1 




40 


EJ 


LX21 


ZK13 




41 


MJ 
CA 



LI42 


LI7 



Set level ind. = zero 

Set title bit in hdg. indicator — > 

Preset index (C2) 

Preset char, shift 

Preset initial add. in assem. blk. 

Zeroize char, count. 

Get next char. 

Char.= close parent.? 

Char.= open parent.? 

Char.= " A "? 

Store XS3 character for title edit 



Adv. parent, level by 1 

Close parent, on level zero? 

Get next char. 

Char.= close parent. 

No => Alarm #47 

Edit and store title for edit 

Get next char. (Throw away close 

parent. ) 

Get next sym. 

Sym.= comma? 

Sym.= semi-colon? 

Sym.= open parent.? 

Sym.= " A ."? — > end list S.O. 

Sym.= close parent.? Yes— > Printout 

#48 

No ■=?> Printout #49 



Zeroize assem. blk. 

Store char. ( A ) for title edit 

Get next char. 

Char.= period? Yes — *• Warning #50 
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End List String-out 



® 



IA 
TP 



LJ 
EW3 



(50) 

Title, 
col. hdgs. 
& var. 7 
names 10 



11 
12 

@ Col. 13 

hdgs. 14 

& var. 15 

names 

Titled 16 

var. 

names IT 
20 
21 
22 

23 
24 

© 25 
26 
27 
30 

names 31 
32 

)^ 33 

34 

35 

36 

37 
40 
41 



Var. 



RA LY15 



TP 
QJ 
QJ 
QJ 
TV 

RP 
TP 

TP 
MJ 
TV 
RP 
TP 



RP 
TP 
TP 
MJ 
TV 
RP 
TP 
TP 
TU 



QT 
RJ 

MJ 
CA 



LY13 
LJ4 yes 
LJ6 yes 
LJ16 yes 
LY15 

30074 
LZ 

LV37 



LY15 

30050 

LZ24 



TV LY15 

RP 30024 

TP LZ 

TV LJ20 

RA LJ24 



30024 

LZ50 

LV41 



LY15 

30024 

LZ50 

LV42 

LY15 



CC 30000 
RS LY15 
AT WL6 



LV40 
WT 

LJ42 



LY15 
LV15 

Q 

LJ5 no 
LJ13 no 
LJ27 no 
LJ10 

LJ11 
[30000] 

WL6 

LJ33 

LJ15 

LJ25 

[30000] 

LJ20 

LJ21 
[30000] 
LJ24 
LV42 

LJ25 

[30000] 

WL6 

LJ33 

LJ31 

LJ32 

[30000] 

WL6 

LJ34 

LX22 

LW16 



WL 

WT1 

LA 



Add. of last entry in string-out — > 

temp. 

1 in *V & "v" adv. — > initial add. for 

headings in string-out. 

Hdg. ind. — » Q 

Are there column hdgs.? 

Is there title? (w/col. hdgs.) 

Is there title? (w/o col. hdgs.) 



Hdg. list (title-col. hdgs. -var. names) 

— *S.O. 

Hdg. count (60 1Q )— ->S.O. 



Hdg. List (col. hdg. and var. names) 
— » S.O. 



Title 



S.O. 



Adv. by 20 1Q 
string-out 



Add. following title in 



Var. names — >S.O. 

Hdg. count (40 1Q )^ S.O. 



Hdg. List (var. names) — >S.O. 

Hdg. count (20io)— > S.O. 

Preset "u" of NI— » add. of 1st word of 

hdgs. in string-out 

Fast feed 1 sym. — > 1st char, of hdgs. in 

string-out 

No. of words in S.O. w/o hdgs. — >**u*' & 

**v" of A 

No. of words in S.O. including hdgs. — > 

Q 

Word count — » "v" of 1st word of S.O. 
String-out — >tape 
— > String-out Exit 
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Adv. and Ck. Var. (Col. Hdg.) Count Subroutine 

IA LP 

MJ [30000] 

Fl. Pt. 1 TU LW LP17 Set up inst. for fl. pt. ind. 

Ent. 2 TU LW2 LQ3 Preset add. of fl. pt. char, limit 

3 MJ LP6 

TU LW1 LP17 

TU LW3 LQ3 Preset add. of fix pt. char, limit 

SP WL5 Var. count— > A 

TJ LV17 LP15 yes 5 > * variables? 

MJ ZK17 No =s> Printout #51 

RJ SY SY1 Get next sym. 

EJ LX12 LF Sym. = tape? — >tape designation phase 

EJ LX13 ZA13 Sym. = " A ."? Yes => Alarm #3 

MJ LP11 

AT LV WL5 Adv. var. count — > list string-out 

RA LP 17 LV 

TP [30000] [30000] Fix or fl. pt. ind. — > var. ind. word 

SP LP17 17 

TU A LQ2 Preset add. of char, count (var. ind. 

word) 

RA LP23 LV22 Adv. NI to preset next add. in assem, blk. 

TP [30000] LQ11 Preset add. in assem. blk. 

at 24 TV LW20 LQ1 Preset ent. — > store XS3 char, for var. 

begin name 

list 25 TU LQ11 ZL2 Add in assem. blk. — =► trans, inst. for 

S.O. warning print 

26 MJ LP36 

Col. 27 SP LY14 Col. hdg. count —> A 

Hdg. 30 TJ WL5 LP32 yes # Variables > # col. hdgs.? 

Ent. 31 MJ ZK26 No => Warning #52 

32 AT LV LY14 Adv. col. hdg. count by 1 

33 TP LW4 LQ11 Preset add. in assem. blk. 

IA TP IVlO IVK "7^>./M* ry a oho» />r.lltt + 

KJ-I J.J. M-IW X £■ UJLJL«_r UtlUlOt UUQ1 . fUHUI/ 

35 TV LW11 LQ1 Preset ent. —» store XS3 char . for 

column hdg. 

@ 36 TP LV23 LY11 Preset index (C2) 

37 TV LV20 LQ10 Preset char, shift 

40 MJ LP Exit 

CA LP41 



Call Word — >Var. List String-out 

IA LO 

MJ [30000] 

1 TP Q EW2 Call word — > H v" of EW2 

2 RJ EW EW1 Call word -— > string-out 

3 MJ tO 
CA L04 
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Preset 



IA 
MJ 
MJ 
TP 
TJ 
MJ 
TU 
RA 



LQ 



[30000] 
[30000] 


LQ2 
[30000] 



Store XS3 Char, for Hdg. Edit 
Input: 



[30000] 
[30000] 
A 

LQ5 
ZL 
LQ6 
LV 



M v" preset - 
Char, count 



LQ2 or LQ17 

> A 



23 in (27 ft ) > * char.? 
No^Warning #53 
Preset H u" of NI— >char, 
Adv. char, count by 1 in 



count add. 



RS LQlO LV2 Decrease shift count 
SP Q [30000] Position char, in A 



AT [30000] [30000] Char. — » current word in assem. blk. 



(60) 12 

13 

14 

15 

16 

Col.-> 17 

Hdg. 20 

Ent. 21 

Title-»22 

Ent. 

23 

24 

@ 25 

26 
27 



IJ LY11 



RA 
TV 
TP 
MJ 
TP 
TJ 
MJ 
[TP 



TP 
MJ 
CA 



LQ11 

LV16 

LV17 



LY15 

LV14 


LY15 



TJ LV34 
MJ 
RA LY15 



GN4 



LQ30 



LQ 

LV15 

LQlO 

LY11 

LQ 

A 

LQ25 yes 

ZL10 

A] 



LQ25 yes 

ZL20 

LV 

Q 

LQ7 



Current word full? (index preset by 

var. count routine) 

Adv. current assem. blk. address 

Reset shift count 

Reset index 

Char, count — > A 

23 10 (2 V > * char - ? 
No =» Warning #54 

Title char, count — >A (reset — > MJ-O- 
LQ after printout; not preset, trans- 
ferred from drum before operating) 
119 n (1678) > * char.? 
No ^Warning #55 
Adv. title (col. hdg.) char, count by 
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IA 


LR 









MJ 





[30000] 


1 


TP 


SY5 


LY12 


2 


TP 


SY2 


LY3 


3 


IJ 


LY12 


LR5 




4 


MJ 





LR 




5 


LQ 


L.IO 


o 




6 


QT 


LV52 


Q 




7 


RJ 


LQ 


LQl 




10 


MJ 





LR3 






CA 


LRU 







Store X53 Sym. for Heading Edit 

Input: XS3 sym. in SY2,# char, in SY5 



# Char in sym. — > index ctr. (C„) 

XS3 sym. — > temp. 

All char, trans. — > Assem. blk. 



Next XS3 char, in sym. — > "v" of Q 

XS3 char, ^"v" of Q 

Store XS3 char, for Hdg. Edit 
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Edit Title Subroutine 





1 


IA 

MJ 
TV 


LS 



LW14 


[30000] 
LS31 


2 
3 


SP 
DV 


LY15 
LV31 



Q 


4 
5 


ZJ 
RA 


LS5 yes 
Q 


LS6 no 
LV 


6 


RS 


LS31 


Q 


7 


SP 


Q 


1 


10 
11 
12 
13 
14 


ST 
SP 
EJ 
SA 
DV 


LV 

LY15 

LV34 

LV26 

LV1 


LY11 



LS44 



A 


15 
16 


DV 
ZJ 


LV2 
LS17 no 


Q 

LS37 yes 


17 
20 


TJ 
TU 


LV1 
LW23 


LS23 
LS27 



21 

22 
23 

24 



TU LW4 



MJ 

TU 





LW4 



TU LW26 



LS30 

LS25 
LS27 

LS30 



25 


MP 


A 


LV2 


26 
27 
30 
31 
32 


TV 
SP 
SA 
LT 
RA 


A 

[30000] 
[30000] 

L327 


LS30 
44 
[30000] 

gooooj 

LV22 


33 


RA 


LS30 


LV22 


34 


RA 


LS31 


LV 


35 


IJ 


LY11 


LS27 no 


36 


MJ 





LS 


37 


SP 





20 


40 


AT 


LW15 


LS42 


41 


TV 


LS31 


LS43 


42 
43 


[RP 

TP 


30000 
LY20 


LS] 
[30000J 



Preset hdg. list add. — > middle add. of 

title 

Char, count — > A 

3 char. ; * fuii words in 1/2 title — > Q 

12 
Is there partial word? 
Adv. Q by 1 =^ total # words in 1/2 
title — >Qv 

Decrease hdg. list add. — > add. initial 
title word in hdg. list 
(ff words in 1/2 title) * 2 = total * words 
in title — > A 

# Words in title - 1 - 

# Char. — > A 
» Char.= 119 n 

# Char. + 3 -^>A 
&ch.ar.+ 3 — > A 

2 

# Char, to shift — > A 

# Char, to shift = zero? No => shift 1 
char. 

2 > » char, to shift? 

Preset "SP" — > add. of 1st word in assem. 

blk. 

Preset "SA" — >add. of 2nd word in assem. 

blk. 



index ctr. (Cp) 



add. of 2nd word in assem. 
add. of 3rd word in assem. 



Preset "SP" — 

blk. 

Preset "SA" - 

blk. 

(# char, to shift) x 6 = shift count 

Preset shift count in "SA" 

Current title word from assem. blk. — > A 

Position edited title word in Al 

Edited title word — >> hdg. list add. 

Adv. "u" of "SP" by 1 

Adv. "u" of "SA" by 1 

Adv. "v" of "LT" by 1 

All of edited title — > hdg. list? 

* words edited title — >"u" of A 
Add. "w" to dummy repeat 
Preset add. of initial title word in hdg. 
list 



Trans, edited title 



hdg. list 
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44 


RP 


30024 


LJ 


45 


TP 


LY20 


LZ 




CA 


LS46 





Trans. 119 n char, title — >hdg. list 
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Edit Variable (Col. Hdg.) Subroutine 





IA 


LT 













MJ 





[30000] 


Exit 






1 


[0 


30000 


30000] 


Input 






2 


RA 


LY2 


LV23 


Adv. avail, add. hdg. 


list by 4 in " 


V 










— > add. next var. in hdg. list 




3 


TV 


A 


LU15 


Preset "v" of trans. : 


inst. — > add. next 










var. in hdg. list. 






4 


TU 


LY1 


LU13 


Preset "SP" inst. — > i 
in assem. blk. 


add. next var. 


- 1 


5 


TU 


LY1 


LU14 


Preset "SA" inst. — >i 
in assem. blk. 


add. next var. 


- 1 


6 


RA 


LU14 


LV22 


Adv. "u" of "SA" by 1 
- in assem. blk. 


— > add. next 


var. 


7 


TP 


LT1 


Q 


Var. ind. word — > Q 






10 


QT 


LV40 


LT1 


# Char. — > A & input line 




11 


EJ 


LV25 


LU23 yes 


# Char.= 23 10 V (27 8 )? 






12 


QJ 


LT24 no 


LT13 yes 


Variable floating pt. 


quan.? 




13 


TJ 


LV27 


LT16 yes 


13 10 > tt char.? 






14 


TP 


LV26 


LY11 


Index = 3 to trans. 4 


words — > hdg. 


list 


15 


MJ 





LT20 


— >© 






16 


TP 


LV 


LY11 


Index = 1 to trans. 2 


words — > hdg. 


list 


17 


RA 


LU15 


LV 


Adv. "v" trans, inst. 
hdg. list 


by 1 — > next 


add. 


20 


TP 


LT1 


A 


tf Char. — > A 






21 


SA 


LV26 





* Char. +■ 3 — » A 






22 


DV 


LV1 


A 


* Char, + 3; Quot — > 
2 


A 




23 


MJ 





LU2 






24 


TJ 


LV31 


LT33 yes 


12. ft > » char-? 
19:^ > * char.? 
Index = 3 to trans. 4 






25 


TJ 


LV53 


LT30 yes 






26 


TP 


LV26 


LY11 


words — > hdg. 


list 


27 


MJ 





LT35 


-^© 






30 


TP 


LV1 


LY11 


Index = 2 to trans . 3 


words — > hdg. 


list 


31 


RA 


LU15 


LV 


Adv. "v" trans, inst. 
hdg. list 


by 1 — > next 


add. 


32 


MJ 





LT35 


-* © 






33 


TP 


LV 


LY11 


Index = 1 to trans. 2 


words — > hdg. 


list 


34 


RA 


LU15 


LV1 


Adv. "v" of trans, inst. by 2 — > add. in 










hdg. list. 






35 


TP 


LT1 


A 


# Char. —> A v 






36 


TJ 


LV30 


LU yes 


15 10 > * char.? 






37 


SA 


LV 





£ Char. + 1— » A 






40 


MJ 
CA 




LT41 


LU2 
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Edit Var. (Col. Hdg.) Subroutine (cont.) 







IA 


LIT 




© 





DV 


LV1 


A 


v— • 


1 


LV1 


LV1 





© 


2 


DV 


LV2 


Q 




3 


ZJ 


LU4 no 


LU23 yes 




4 


MP 


A 


LV2 


© 


5 


TV 


A 


LU14 




6 


TJ 


LV24 


LU11 yes 




7 


TP 


LV12 


A 




10 


MJ 





LU14 




11 


RA 


LU13 


LV22 




12 


RA 


LU14 


LV22 


@ 


13 


SP 


[30000] 


44 


© 


14 


SA 


[30000] 


[300001 




15 


LT 





[30000] 




16 


RA 


LU13 


LV22 




17 


RA 


LU14 


LV22 




20 


RA 


LU15 


LV 



© 21 



22 
23 

OA 

faa-2 

25 
26 



IJ LY11 



MJ 
TU 





LU14 



RP 30004 
TP [30000] 

CA LU27 



LU13 

LT 
LU26 



LT 
[30000] 



# char/2; Quot — ■» A 
Quot + 2 — *A 

(A)/6 =^Rem. = » char, to shift — > A 

# Char, to shift = zero? 

# Char, to shift x 6 = shift count — > A 
Preset shift count in "v" of SA inst. 

7 > shift count? (i.e. f # char, to 
shift = l) 
Zero — > A 



add. of 1st var. 
add. of 2nd var. 



Adv. "u" of SP by 1 - 

word 
Adv. "u" of SA by 1 - 

word 
Variable word from assem. blk. — > Al 
Add. next word to L & shift to position 

in A L K 

Edited word from assembly block — > 

heading list 
Adv. "u" of SP by 1 
Adv. "u" of SA by 1 
Adv "v" of trans, inst. by 1 — > next add. 

in hdg. list 
All words trans, from assem. blk.— > hdg. 

list 



Add. 1st word of var. in assem. blk. 

"u" of TP 
Add. for variable in hdg. list — 



v 01 



TP 



Trans, words from assem. blk 
w/o editing. 



hdg. list 
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IA 


LV 













1 


1 








2 


2 








6 


3 








11 


4 








12 


5 








77000 


6 








66000 


7 








65000 


10 








64000 


11 





3 


3 


12 











13 


40 








14 








27 


15 





1 


1 


16 








44 


17 








5 


20 








36 


21 


40 





27 


22 





1 





23 








4 


24 








7 


25 








27 


26 








3 


27 








15 


30 








17 


31 








14 


32 





4 


4 


33 


20 








34 








167 


35 








170 


36 





24 


24 


37 








74 


40 








77777 


41 








50 


42 








24 


43 








50000 


44 





55000 





45 





550 





46 





55740 





47 





557 


40000 


50 


17 








51 








40000 


52 








77 


53 








23 




GA 


LV54 





Fixed Constants 

XS3 space char. ( A ) 



Fl. pt. ind. 
Fix pt. ind. 
Fl. pt. char, limit (23 = maximum * char.) 



XS3 open parent, character 
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Relative Constants 





IA 


LW 










LY12 





1 





LV13 





2 





LV14 





3 





LV21 





4 


AT 


LY20 


LY20T 


5 


AT 


LY24 


LY24 


6 


AT 


LY30 


LY30 


7 


AT 


LY34 


LY34 


10 


AT 


LY40 


LY40, 


11 








LQ17 


12 





LW3 


LY3 



13 



WL6 



WL6 



14 







LZ12 


15 


RP 


30000 


LS 


16 





WL 


WL 


17 








LQ 


20 








LQ2 


21 








12.44 


22 





LY3 





23 





LY17 


LY17 


24 





WP20000 


WP 


25 








WR 


26 





LY21 


SY1 




CA 


LW27 





Add. fl. pt. ind. 

Add. fix. pt. ind. 

Add. fl. pt. character limit 

Add. fix pt. character limit 

To preset add. in assembly block for 
XS3 sym. or character store routine 



To preset inst. to present add. in 

assembly block. To preset add. of first 

var. ind. word - 1 

To preset EW3 — > Add. of 1st CW in 

S.O. - 1 

Middle add. of title in hdg. list. 

Initial add. in S.O. list 



To preset add. in hdg. list. 

To preset add. of var. ind. word 

Initial address in assem. block 

WP = max. no. of tape CW's in Rewind List 

Initial add. in Rewind List 
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XS3 Cod 


es 






IA 


LX 











04 


77777 


77777 


1 " 






1 


05 


77777 


77777 


2 






2 


06 


77777 


77777 


3 






3 


07 


77777 


77777 


4 






4 


10 


77777 


77777 


5 


' Servo numbers 




5 


11 


77777 


77777 


6 






6 


12 


77777 


77777 


7 






7 


13 


77777 


77777 


8 






10 


14 


77777 


77777 


9 






11 


04 


03777 


77777 


10, 






12 


66 


24523 


07777 


TAPE 




13 


01 


22777 


77777 


A 




14 


21 


77777 


77777 


Comma symbol 




15 


23 


77777 


77777 


Semi-eolon symbol 




16 


17 


77777 


77777 


Open parent, symbol "(" 




17 


43 


77777 


77777 


Close parent, symbol ")" 




20 


00 


00000 


00043 


Close parent, char. 




21 


00 


00000 


00022 


Period char. 




22 


37 


00000 


00000 


Fast feed 1 sym. (packed to 
fill) 


left w/zero 


23 


00 


00000 


00021 


Comma character. 




24 


00 


00000 


00023 


Semi-colon character 






CA 


LX25 
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IA 


ZA 




Alarm 





RJ 


WA 


WA1 


#1 


1 


TP 


PB 


UPS 




2 


RJ 


UP2 


UP 




3 


MJ 





LA 


Alarm 


4 


RJ 


WA 


WA1 


#2 


5 


TP 


SY2 


PB22 




6 


TP 


SY3 


PB23 




7 


TP 


SY4 


PB24 




10 


TP 


PB17 


UP3 




11 


RJ 


UP2 


UP 




12 


MJ 





LB22 


Alarm 


13 


RJ 


WA 


WAl 


#3 


14 


TP 


PC 


UP3 




15 


RJ 


UP2 


UP 




16 


MJ 





LA 


Alarm 


17 


RJ 


WA 


WAl 


#4 


20 


TP 


PC17 


UP3 




21 


RJ 


UP2 


UP 




22 


RA 


LY44 


LV 




23 


MJ 





LB22 


Alarm 


24 


RJ 


WA 


WAl 


*5 


25 


TP 


PD 


UP3 




26 


RJ 


UP2 


UP 




27 


MJ 





LB22 


Alarm 


30 


RJ 


WA 


WAl 


#6 


31 


TP 


SY2 


PD22 




32 


TP 


SY3 


PD23 




33 


TP 


SY4 


PD24 




34 


TP 


PD17 


UP3 




35 


RJ 


UP2 


UP 




36 


MJ 





LB22 


Alarm 


37 


RJ 


WA 


WAl 


#7 


40 


TP 


PE 


UP3 




At 

11 


RJ 


UP2 


UP 




42 


MJ 
CA 



ZA43 


LF 



-> Exit 



Exit 



Exit 



Adv. Parenthesis Level 
— > Var. Phase 



-> Var. Phase 



Var. Phase 



Tape Designation Phase 



593 







IA 


ZB 




Alarm 





RJ 


WA 


WAl 


#8 


1 


TP 


SY2 


PG6 




2 


TP 


PG 


UP3 




3 


RJ 


UP2 


UP 




4 


MJ 





LB22 


Alarm 


5 


RJ 


WA 


WAl 


#9 


6 


TP 


SY2 


PG23 




7 


TP 


PG16 


UP3 




10 


RJ 


UP2 


UP 




11 


MJ 





LB22 


Alarm 


12 


RJ 


WA 


WAl 


#10 


13 


TP 


SZ2 


PH7 




14 


TP 


SZ3 


PH10 




15 


TP 


SZ4 


PH11 




16 


TP 


PH 


UP3 




17 


RJ 


UP2 


UP 




20 


MJ 





ZB25 


Alarm 


21 


RJ 


WA 


WAl 


#11 


22 


TP 


LY16 


PH20 




23 


TP 


PH13 


UP3 




24 


RJ 


UP2 


UP 




25 


TP 


SY2 


A 




26 


MJ 





LB23 


Alarm 


27 


RJ 


WA 


WAl 


#12 


30 


TP 


LY16 


Pill 




31 


TP 


PI 


UP3 




32 


RJ 


UP2 


UP 




33 


MJ 





LA 




34 


CA 


ZB34 





Print hdg. & set error bit 
Pseudo op. sym. — > printout 

Printout #8 

Print hdg. & set error bit 
Library rtn. sym. — > printout 

Printout #9 

Print hdg. & set error bit 

Symbol — > Printout 

Printout #10 

Print hdg. & set error bit 
Subs. var. symbol — > printout 

Printout #11 



Print hdg. & set error bit 
Subs. var. sym. — > printout 



Exit 
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IA 


ZC 






Alarm 





RJ 


WA 


WA1 


#13 


1 


TP 


LY16 


PI31 




2 


TP 


PI21 


UP3 




3 


RJ 


UP2 


UP 




4 


RA 


LY46 


LV 




5 


MJ 





LD12 


Alarm 


6 


RJ 


WA 


WA1 


#14 


7 


TP 


SY2 


PJ3 




JL\J 


TP 


T V 1 C 


QT 1 «"» 




11 


TP 


PJ 


UP3 




12 


RJ 


UP2 


UP 




13 


MJ 





LD12 


Alarm 


14 


RJ 


WA 


WA1 


#15 


15 


TP 


LY16 


PJ24 




16 


TP 


PJ14 


UP3 




17 


RJ 


UP2 


UP 




20 


MJ 





LF 


Alarm 


21 


RJ 


WA 


WA1 


#16 


22 


TP 


SY2 


PK15 ' 






23 


TP 


SY3 


PK16 


> 




24 


TP 


SY4 


PK17 






25 


TP 


LY16 


PK4 




26 


TP 


PK 


UP3 




27 


RJ 


UP2 


UP 




30 


MJ 
CA 

IA 



ZC31 

ZD 


LD12 


Alarm 





RJ 


WA 


WAl 


#17 


1 


TP 


SY2 


PK25 




2 


TP 


LY16 


PK32 


- 


3 


RJ 


SY 


SY1 




4 


EJ 


LX16 


ZD11 yes 




5 


TP 


PK21 


UP3 




6 


RJ 


UP2 


UP 




7 


TP 


SY2 


A 




10 


MJ 





LD13 




11 


TP 


PK22 


UP3 




12 


RJ 


UP2 


UP 




13 


RJ 


LE21 


l£6 




14 


MJ 





LD12 






CA 


ZD15 







Print hdg. and set error bit 
Subs. Var* sym. — > printout 

Printout #13 

Adv. subs, parent, level by 1 

Print hdg. & set error bit 
Illegal sym. — > printout 
Subs. var. sym. — > printout 

Printout #14 

Print hdg. & set error bit 
Subs. var. sym. — > printout 

Printout #15 

Print hdg. and set error bit 

Symbol — > Printout 



Print hdg. & set error bit 

Function symbol — > printout 

Sub. var. sym. — > printout 

Get next symbol 

Sym. = open parenthesis? (i.e, f are there 

arguments w/function) 

Parameter for #17 — > Uniprint 

Printout #17 

Current sym. — > A 

— > Subs. var. section 

Parameter for #17A — > Uniprint 

Printout #17A 

Delete arguments of function 

— > Subs. var. section 
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© 



Alarm 

#18 1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 

15 

16 

17 

20 

21 

22 
23 

24 
25 
26 
27 
30 
31 
32 
33 
34 
35 
36 
37 
40 



IA 
RJ 
TP 
TP 
RJ 
EJ 
TP 
RJ 
TP 
MJ 
TP 
RJ 
TP 
TP 
RJ 
EJ 
EJ 
EJ 
EJ 

MJ 
IJ 

MJ 
RA 
MJ 
RJ 
TP 
TP 
RJ 
MJ 
RJ 
TP 
TP 
RJ 
MJ 
CA 



ZE 

WA 

SY2 

LY16 

SY 

LX16 

PL 

UP2 

SY2 



PL1 

UP2 

LV12 

SZ2 

SY 

LX17 

LX16 

LX12 

LX13 



LY47 



LY47 



WA 

LY50 

PJ14 

UP2 



WA 

LY50 

PI 

UP2 



ZE41 



WA1 

PL6 

PL 14 

SY1 

ZE11 yes 

UP3 

UP 

A 

LD13 

UP3 

UP 

LY47 

LY50 

SY1 

ZE23 yes 

ZE25 

ZE27 yes 

ZE34 yes 

ZE15 
ZE15 no 

LD12 

LV 

ZE15 

WA1 

PJ24 

UP3 

UP 

LF 

WA1 

Pill 

UP3 

UP 

LA 



Print hdg. & set error bit 

Latest subs. var. — > printout 

Prior subs. var. — > printout 

Get next symbol 

Symbol = open parenthesis 

Parameter for #18 — > printout 

Printout #18 

Current sym. — > A 

— > Subs. var. section 

Parameter for #18A — > Printout 

Printout #18A 

Set parenthesis level = zero 

Latest subs. var. sym. — »temp. 

Get next symbol 

Sym. = close parenthesis? 

Sym. = open parenthesis? 

Sym. = "tape"? yes ==*• printout #15 

Sym. = space-period ( A . )? yes — i 

printout #12 



Close parent, for subscripts? 
zero) 

Adv. parent, level by 1 



(level 



Printout #15 

— > Tape designation phase 

Printout #12 
— > Exit 
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IA 


ZF 




Alarm 





RJ 


WA 


WAi 


#19 


1 


TP 


SY2 


PM5 




2 


TP 


LY16 


PM13 




3 


TP 


PM 


UP3 




4 


RJ 


UP2 


UP 




5 


MJ 





LD12 


Alarm 


6 


RJ 


WA 


WAI 


#20 


7 


TP 


SY2 


PM23 




in 


TD 

XL 


LY16 


PM31 




11 


TP 


PM15 


UP3 




12 


RJ 


UP2 


UP 




13 


MJ 





LD12 


Alarm 


14 


RJ 


WA 


WAI 


#21 


15 


TP 


SY2 


PN14 




16 


TP 


SY3 


PN15 




17 


TP 


SY4 


PN16 




20 


TP 


LY16 


PN4 




21 


TP 


PN 


UP3 




22 


RJ 


UP2 


UP 




23 


MJ 





LD12 


Alarm 


24 


RJ 


WA 


WAI 


#22 


25 


TP 


SZ2 


P013 




26 


TP 


SZ3 


P014 




27 


TP 


SZ4 


P015 




30 


TP 


LY16 


P07 




31 


TP 


P0 


UP3 




32 


RJ 


UP2 


UP 




33 


TP 


SY2 


A 




34 


MJ 
CA 



ZF35 


LD13 



Print hdg. & set error bit 
Lib. rtn, sym. — > printout 



Printout #19 

Print hdg. & set error bit 

Printout #20 

Print hdg. & set error bit 



Print hdg. & set error bit 



597 







IA 


ZG 




Alarm 





RJ 


WA 


WA1 


*23 


1 


TP 


LY16 


P027 




2 


TP 


P017 


UP3 




3 


RJ 


UP2 


UP 




4 


MJ 





LB22 


Alarm 


5 


RJ 


WA 


WA1 


*24 


6 


TP 


LY16 


PP15 




7 


TP 


PP 


UP3 




10 


RJ 


UP2 


UP 




11 


MJ 





LA 


Alarm 


12 


RJ 


WA 


WA1 


»25 


13 


TP 


LY16 


PP36 




14 


TP 


PP23 


UP3 




15 


MJ 





ZB24 


Alarm 


16 


RJ 


WA 


WA2 


»26 


17 


TP 


SZ2 


PQ5 




20 


TP 


PQ 


UP3 




21 


RJ 


UP2 


UP 




22 


RJ 


LE11 


LE7 




23 


RJ 


LR 


LR1 




24 


RJ 


LE21 


SY1 




25 


RJ 


LR 


LR1 




26 


MJ 





LB22 


Alarm 


27 


RJ 


WA 


WA1 


*27 


30 


TP 


LY50 


PQ27 




31 


TP 


PQ15 


UP3 




32 


MJ 





LB22 


Alarm 


33 


RJ 


WA 


WA1 


»28 


34 


TP 


LY50 


PR 12 




35 


TP 


PR 


UP3 




36 


RJ 


UP2 


UP 




37 


MJ 
CA 



ZG40 


LA 



-» Var. phase 



->Exit 



Save arguments of function 



->Exit 
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IA 


ZH 




A la rm 





RJ 


WA 


WA1 


#29 


1 


TP 


PR21 


UP3 




2 


RJ 


UP2 


UP 




3 


MJ 





LA 


Alarm 


4 


RJ 


WA 


WA1 


#30 


5 


TP 


PT 


UP3 




6 


RJ 


UP2 


UP 




7 


MJ 





LA 


Alarm 


10 


RJ 


WA 


WA1 


#31 


11 


TP 


PT21 


UP3 




12 


RJ 


UP2 


UP 




13 


MJ 





LA 


Alarm 


14 


RJ 


WA 


WA1 


#32 


15 


TP 


PU 


UP3 




16 


RJ 


UP2 


UP 




17 


MJ 





LA 


Alarm 


20 


RJ 


WA 


WA1 


#33 


21 


TP 


SY2 


PU30 




22 


TP 


PU21 


UP3 




23 


RJ 


UP2 


UP 




24 


MJ 





LA 


Alarm 


25 


RJ 


WA 


WA1 


#34 


26 


TP 


SY2 


PV12 




27 


TP 


PV 


UP3 




30 


RJ 


UP2 


UP 




31 


MJ 





LA 


Alarm 


32 


RJ 


WA 


WA1 


#35 


33 


TP 


SY2 


PV36 




34 


TP 


PV24 


UP3 




35 


RJ 


UP2 


UP 




36 


MJ 





LA 




37 


CA 


ZH37 





Exit 



Exit 



■>Exit 



Exit 



Exit 



Exit 



Exit 
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IA 


ZI 




Alarm 





RJ 


WA 


WA1 


#36 


1 


TP 


SY2 


PW16 




2 


TP 


SY3 


PW17 




3 


TP 


SY4 


PW20 




4 


TP 


PW 


UP3 




5 


RJ 


UP2 


UP 




6 


MJ 





LA 


Alarm 


7 


RJ 


WA 


WA1 


#37 


10 


TP 


SY2 


PX15 




11 


TP 


SY3 


PX16 




12 


TP 


SY4 


PX17 




13 


TP 


PX 


UP3 




14 


RJ 


UP2 


UP 




15 


MJ 





LA 


Alarm 


16 


RJ 


WA 


WA1 


#38 


17 


TP 


PY 


UP3 




20 


RJ 


UP2 


UP 




21 


MJ 





LA 


Alarm 


22 


RJ 


WA 


WA1 


*39 


23 


TP 


PY24 


UP3 




24 


RJ 


UP2 


UP 




25 


MJ 





LA 


Alarm 


26 


RJ 


WA 


WA1 


»40 


27 


TP 


SY2 


PZ14 




30 


TP 


SY3 


PZ15 




31 


TP 


SY4 


PZ16 




32 


TP 


PZ 


UP3 




33 


RJ 


UP2 


UP 




34 


MJ 





LA 


Alarm 


35 


RJ 


WA 


WA2 


#41 


36 


TP 


SA 


UP3 




37 


RJ 


UP2 


UP 




40 


MJ 
CA 




ZI41 


LA 



Exit 



Exit 



Exit 



Exit 



Exit 



Exit 



600 







IA 


ZJ 




Warn- 





RJ 


WA 


WA2 


ing 


I 


TP 


SA16 


UPS 


#42 


2 


RJ 


UP2 


UP 




3 


MJ 





LJ 


Warn- 


4 


RJ 


WA 


WA2 


ing 


5 


TP 


SY2 


SB26 1 


#43 


6 


TP 


SY3 


SB27 




7 


TP 


SY4 


SB30 J 




10 


TP 


SB 


UP3 




1 1 


DT 


TTDQ 


T7D 




J. X 


IVO 


Ul &■ 


Ul. 




12 


MJ 





LJ 


Warn- 


13 


RJ 


WA 


WA2 


ing 


14 


TP 


SC 


UP3 


#44 


15 


RJ 


UP2 


UP 




16 


MJ 





LJ 


Warn- 


17 


RJ 


WA 


WA2 


ing 


20 


TP 


SY2 


SD26 ' 


#45 


21 


TP 


SY3 


SD27 ► 




22 


TP 


SY4 


SD30 - 




23 


TP 


SD 


UP3 




24 


MJ 





ZJ15 


Warn- 


25 


RJ 


WA 


WA2 


ing 


26 


TP 


SE 


UP3 


#46 


27 


RJ 


UP2 


UP 




30 


TP 


LX13 


SY2 




31 


MJ 





U 


Warn- 


32 


RJ 


WA 


WA2 


ing 


33 


TP 


SE16 


UP3 


#47 


34 


RJ 


UP2 


UP 




35 


MJ 
CA 



ZJ36 


u 



Print hdg. ; do not set error bit 



— > End list string-out 

Print hdg. ; do not set error bit 

Symbol — > printout 



-» End list string-out 



End list string-out 



Symbol — >• printout 



End list string-out 



601 







IA 


ZK 




Warn- 





RJ 


WA 


WA2 


ing 


1 


TP 


SF 


UPS 


#48 


2 


RJ 


UP2 


UP 




3 


MJ 





U 


Warn- 


4 


RJ 


WA 


WA2 


ing 


5 


TP 


SY2 


SF47 


#49 


6 


TP 


SY3 


SF50 




7 


TP 


SY4 


SF51 




10 


TP 


SF22 


UP3 




11 


RJ 


UP2 


UP 




12 


MJ 





U 


Warn- 


13 


RJ 


WA 


WA2 


ing 


14 


TP 


SG 


UP3 


#50 


15 


RJ 


UP2 


UP 




16 


MJ 





U 


Alarm 


17 


RJ 


WA 


WA1 


#51 


20 


TP 


SY2 


SG31 




21 


TP 


SY3 


SG32 




22 


TP 


SY4 


SG33 




23 


TP 


SG15 


UP3 




24 


RJ 


UP2 


UP 




25 


MJ 





LP11 


Warn- 


26 


RJ 


WA 


WA2 


ing 


27 


TP 


SH 


UP3 


#52 


30 


RJ 


UP2 


UP 




31 


MJ 
CA 



ZK32 


U 



■> End list string^-out 



> End list string-out 

Print hdg. ; do not set error bit 



Print hdg. ; set error bit 



> Var. count subroutine 

Print hdg. ; do not set error bit 

> End list string-out 
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IA 


ZL 




Warn- 




RJ 


WA 


WA2 


ings 


, 1 


RP 


30004 


ZL3 


Preset 2 


TP 


[30000] 


SH32 


in var. 








count 


3 


RA 


SH32 


LV50 


rtn. 












4 


TP 


SH14 


UP3 




5 


RJ 


UP2 


UP 




A 


TV 


LW17 


rni 




7 


MJ 





LQ 


Warn- 


10 


RJ 


WA 


WA2 


ing 


11 


RP 


30004 


ZL13 


»54 


12 


TP 


LY20 


SI 16 




13 


RA 


SI 16 


LV50 




14 


TP 


SI 


UP3 




15 


RJ 


UP2 


UP 




16 


TV 


LW17 


LQ1 




17 


MJ 





LQ 


Warn- 


20 


RJ 


WA 


WA2 


ing 


21 


RP 


30024 


ZL23 


*55 


22 


TP 


LY20 


SK15 




23 


RA 


SK15 


LV50 




24 


TP 


SK 


UP3 




25 


RJ 


UP2 


UP 




26 


TP 


ZL27 


LQ22 



27 



MJ 



LQ 







CA 


ZL30 








IA 


ZM 




Alarm 





RJ 


WA 


WA1 


*56 


1 


TP 


SL 


UP3 




2 


RJ 


UP2 


UP 




3 


MJ 





LA 


Alarm 


4 


RJ 


WA 


WA1 


*57 


5 


CC 


WR 


LV13 




6 


TP 


SL21 


UP3 




7 


RJ 


UP2 


UP 




10 


MJ 
CA 




ZMll 


NF26 



Truncated var. name (23 char.) — > 

printout 

Put open parent, preceding var. name in 

printout 



Reset ent, — >■ LQ 



Truncated column heading (23 char.) — > 

printout 

Put open parent, preceding col. hdg. in 

printout 



Reset ent. 



LQ 



Truncated title (20 words) — > Printout 
Put open parent, preceding title in 
printout 



Reset to by-pass printout for remaining 
char, of title 

NB — > this instruction used to reset 
by preceding instruction 



Exit 



603 



List String-out Alarm Texts (Alarm Heading 27 lf) ) 





IA 


PB 

















40 


PB1 


16 










Printout #1 


1 


71 


51542 


72101 


W 





R 


D 


. A 


2 


66 


24523 


02101 


T 


A 


P 


E 


. A 


3 


24 


52523 


02454 


A 


P 


P 


E 


A R 


4 


65 


01246 


50131 


S 


A 


A 


S 


A F 


5 


34 


54656 


60170 


I 


R 


S 


T 


A v 


6 


24 


54342 


42546 


A 


R 


I 


A 


B L 


7 


30 


01665 


10125 


E 


A 


T 





A B 


10 


30 


01463 


46566 


E 


A 


L 


I 


S T 


11 


30 


27220 


10154 


E 


D 


, 


A A r 


12 


30 


65660 


15131 


E 


S 


T 


A 


F 


13 


01 


65305 


06630 


A 


S 


E 


N 


T E 


14 


50 


26300 


15051 


N 


C 


E 


A 


N 


15 


66 


01263 


33026 


T 


A 


C 


H 


E C 


16 


45 


30272 


27777 


K 


E 


D 


% 


77 77 


17 


40 


PB20 


13 










Printout #2 


20 


26 


51506 


56624 


C 





N 


S 


T A 


21 


50 


66210 


17777 


N 


T 


» 


A 


77 77 


22 





















23 











- 


- 


- 


- 


- - 


24 





















25 


21 


01244 


75150 


• 


A 


A 


M 


N 


26 


32 


01702 


45434 


G 


A 


V 


A 


R I 


27 


24 


25463 


06501 


A 


B 


L 


E 


s A 


30 


66 


51012 


53001 


T 





A 


B 


E A 


31 


46 


34656 


63027 


L 


T 


S 


T 


E D 


32 


22 
CA 


77777 
PB33 


77777 


• 


77 


77 


77 


77 77 



604 





IA 


PC 



















40 


PCI 


16 










Printout 


#3 


1 


30 


50270 


15131 


E 


N 


D 


A 


F 




2 


01 


65305 


06630 


A 


S 


E 


N 


T E 




3 


50 


26300 


16573 


N 


c 


E 


A 


S Y 




4 


47 


25514 


60124 


M 


B 





L 


A A 




5 


47 


51503 


20170 


M 





N 


G 


A V 




6 


24 


54342 


42546 


A 


R 


I 


A 


B L 




7 


30 


65016 


65101 


E 


S 


A 


T 


A 




10 


25 


30014 


63465 


B 


E 


A 


L 


I S 




11 


66 


30272 


20101 


I 


E 


D 


. 


A A 




12 


54 


30656 


60151 


R 


E 


s 


T 


A o 




13 


31 


01653 


05066 


F 


A 


s 


E 


N T 




14 


30 


50263 


00150 


E 


N 


c 


E 


A N 




15 


51 


66012 


63330 





T 


A 


c 


H E 




16 


26 


45302 


72201 


C 


K 


E 


D 


. A 




17 


40 


PC20 


23 










Printout 


«4 


20 


51 


52305 


00152 





P 


E 


N 


A P 




21 


24 


54305 


06633 


A 


R 


E 


N 


T H 




22 


30 


65346 


52101 


E 


S 


I 


S 


. A 




23 


71 


33342 


63301 


W 


H 


I 


c 


H A 




24 


34 


65015 


05166 


I 


S 


A 


N 


T 




25 


01 


52543 


02630 


A 


P 


R 


E 


C E 




26 


27 


30270 


12573 


D 


E 


D 


A 


B Y 




27 


01 


24274 


42426 


A 


A 


D 


J 


A C 




30 


30 


50660 


10165 


E 


N 


T 


A A s 




31 


67 


25652 


65434 


C 


B 


S 


c 


R I 




32 


52 


66302 


70170 


P 


T 


E 


D 


A v 




33 


24 


54342 


42546 


A 


R 


I 


A 


B L 




34 


30 


21012 


45252 


E 


t 


A 


A 


P P 




35 


30 


24546 


50124 


E 


A 


R 


S 


A A 




36 


47 


51503 


20170 


M 





N 


G 


A v 




37 


24 


54342 


42546 


A 


R 


I 


A 


B L 




40 


30 


65016 


65101 


E 


S 


A 


T 


A 




41 


25 


30014 


63465 


B 


E 


A 


L 


I S 




42 


66 
CA 


30272 
PC43 


27777 


T 


E 


D 


• 


77 77 





605 





IA 


PD 



















40 


PD1 


16 












Printout #5 


1 


26 


46516 


53001 


C 


L 





S 


E 


A 


2 


52 


24543 


05066 


P 


A 


R 


E 


N 


T 


3 


33 


30653 


46501 


H 


E 


S 


I 


S 


A 


4 


71 


34663 


35167 


W 


I 


T 


H 





D 


5 


66 


01265 


15454 


T 


A 


C 





R 


R 


6 


30 


65525 


15027 


E 


S 


P 





N 


D 


7 


34 


50320 


15152 


I 


N 


G 


A 





P 


10 


30 


50012 


45252 


E 


N 


A 


A 


P 


P 


11 


30 


24546 


50124 


E 


A 


R 


S 


A 


A 


12 


47 


51503 


20170 


M 





N 


G 


A 


V 


13 


24 


54342 


42546 


A 


R 


I 


A 


B 


L 


14 


30 


65016 


65101 


E 


S 


A 


T 





A 


15 


25 


30014 


63465 


B 


E 


A 


L 


I 


s 


16 


66 


30272 


27777 


T 


E 


D 


. 


77 


77 


17 


40 


PD20 


12 












Printout »6 


20 


65 


73472 


55146 


S 


Y 


M 


B 





L 


21 


21 


01777 


77777 


i 


A 


77 


77 


77 


77 


22 























23 























24 























25 


21 


01244 


75150 


i 


A 


A 


M 





N 


26 


32 


01346 


63047 


G 


A 


I 


T 


E 


M 


27 


65 


01665 


10125 


S 


A 


T 





A 


B 


30 


30 


01463 


46566 


E 


A 


L 


I 


s 


T 


31 


30 
CA 

IA 


27227 
PD32 

PE 


77777 


E 


D 




77 


77 


77 





40 


PE1 


12 












Printout *7 


1 


52 


24543 


05066 


P 


A 


R 


E 


N 


T 


2 


33 


30653 


06501 


H 


E 


S 


E 


S 


A 


3 


52 


54302 


63027 


P 


R 


E 


C 


E 


D 


4 


34 


50320 


17151 


I 


N 


G 


A 


W 





5 


54 


27210 


16624 


R 


D 


» 


A 


T 


A 


6 


52 


30210 


15051 


P 


E 


t 


A 


N 





7 


66 


01525 


45152 


T 


A 


P 


R 





P 


10 


30 


54467 


30101 


E 


R 


L 


Y 


A 


A 


11 


01 


01010 


10152 


A A 


A 


A A 


P 


12 


24 
CA 


34543 
PE13 


02722 


A 


I 


R 


E 


D 


• 



606 





IA 


PG 

















40 


PG1 


15 










Printout *8 


1 


52 


65306 


72751 


P 


S E 


U 


D 





2 


01 


51523 


05424 


A 


P 


E 


R 


A 


3 


66 


34515 


00165 


T 


I 


N 


A 


S 


4 


73 


47255 


14621 


Y 


M B 





L 


i 


5 


01 


77777 


77777 


A 


77 77 


77 


77 


77 


6 





















7 


21 


01244 


75150 


. 


A A 


M 





N 


10 


32 


01702 


45434 


G 


A v 


A 


R 


I 


11 


24 


25463 


06501 


A 


B L 


E 


S 


A 


12 


66 


51010 


10101 


T 


A 


AAA 


13 


01 


01012 


53001 


A 


A A 


B 


E 


A 


14 


46 


34656 


63027 


L 


I s 


T 


E 


D 


15 


22 


77777 


77777 


, 


77 77 


77 


77 


77 


16 


40 


PG17 


13 










Printout #9 


17 


46 


34255 


42454 


L 


I B 


R 


A 


R 


20 


73 


01545 


16766 


Y 


A R 





U 


T 


21 


34 


50300 


16573 


I 


N E 


A 


S 


Y 


22 


47 


25514 


62101 


M 


B 


L 


• 


A 


23 





















24 


21 


01244 


75150 


t 


A A 


M 





N 


25 


32 


01702 


45434 


G 


A v 


A 


R 


I 


26 


24 


25463 


06501 


A 


B L 


E 


S 


A 


27 


66 


51012 


53001 


T 


A 


B 


E 


A 


30 


01 


01010 


14634 


AAA 


A 


L 


i 


31 


65 
CA 


66302 
PG32 


72277 


s 


T E 


D 


• 


77 



607 





IA 


PH 

















40 


PHI 


12 










Printout #10 


1 


26 


51474 


72401 


C 





M 


M 


A A 


2 


47 


34656 


53450 


M 


I 


S 


S 


I N 


3 


32 


01315 


14646 


G 


A 


F 





L L 


4 


51 


71345 


03201 





w 


I 


N 


G A 


5 


70 


24543 


42425 


V 


A 


R 


I 


A B 


6 


46 


30210 


17777 


L 


E 


» 


A 


77 77 


7 





















10 





















11 





















12 


22 


77777 


77777 


, 


77 


77 


77 


77 77 


13 


40 


PH14 


22 










Printout #11 


14 


65 


67256 


52654 


S 


D 


B 


S 


C R 


15 


34 


52663 


02701 


I 


P 


T 


E 


D A 


16 


70 


24543 


42425 


V 


A 


R 


I 


A B 


17 


46 


30210 


17777 


L 


E 


» 


A 


77 77 


20 





















21 


21 


01505 


16601 


i 


A 


N 





T A 


22 


31 


51464 


65171 


F 





L 


L 


W 


23 


30 


27012 


57301 


E 


D 


A 


B 


Y A 


24 


51 


52305 


00101 





P 


E 


N 


A A 


25 


01 


01010 


10101 


A 


A A 


A 


A A 


26 


52 


24543 


05066 


P 


A 


R 


E 


N T 


27 


33 


30653 


46522 


H 


E 


S 


I 


s . 


30 


01 


65672 


56526 


A 


S 


D 


B 


s c 


31 


54 


34526 


66501 


R 


I 


P 


T 


s A 


32 


24 


65656 


74730 


A 


S 


S 


D 


M E 


33 


27 


01665 


10125 


D 


A 


T 





A B 


34 


30 


01473 


46565 


E 


A 


M 


I 


s s 


35 


34 
CA 


50322 
PH36 


27777 


I 


N 


G 


• 


77 77 



608 





IA 


PI 















40 


PI1 


20 








Printout #12 


1 


30 


50270 


15131 


E 


N 


D 


A F 


2 


01 


65305 


06630 


A 


S 


E 


N T E 


3 


50 


26300 


16573 


N 


C 


E 


A S Y 


4 


47 


25514 


60124 


M 


B 





L A A 


5 


47 


51503 


20165 


M 





N 


G A s 


6 


67 


25652 


65434 


D 


B 


S 


C R I 


7 


52 


66650 


13151 


P 


T 


S 


A F 


10 


54 


01777 


77777 


R 


A 


77 


77 77 77 


11 



















12 


22 


01010 


10101 


# 


A 


A A A A 


13 


01 


01015 


43065 


A A 


A 


RES 


14 


66 


01513 


10165 


T 


A 





F A S 


15 


30 


50663 


05026 


E 


N 


T 


E N C 


16 


30 


01505 


16601 


E 


A 


N 


T A 


17 


26 


33302 


64530 


C 


H 


E 


C K E 


20 


27 


22777 


77777 


D 


. 


77 


77 77 77 


21 


40 


PI22 


11 








Printout #13 


22 


51 


52305 


00152 





P 


E 


N A P 


23 


24 


54305 


06633 


A 


R 


E 


NTH 


24 


30 


65346 


50124 


E 


S 


I 


S A A 


25 


47 


51503 


20165 


M 





N 


GAS 


26 


67 


25652 


65434 


D 


B 


S 


C R I 


27 


52 


66650 


13151 


P 


T 


S 


A F 


30 


54 


01777 


77777 


R 


A 


77 


77 77 77 


31 



















32 


22 
CA 


77777 
PI33 


77777 


• 


77 


77 


77 77 77 



609 





1 

2 
3 
4 
5 
6 
7 

10 
11 
12 
13 
14 
15 
16 
17 
20 
21 
22 
23 
24 
25 



IA 

40 

65 

21 



21 

24 

51 

25 

66 

01 



22 

40 

71 

66 

24 

65 

32 

26 

01 



22 

CA 



PJ 

PJ1 

73472 

01777 



01245 

54650 

50320 

65265 

65013 

77777 



77777 

PJ15 

51542 

24523 

52523 

01244 

01656 

54345 

31515 



77777 

PJ26 



13 

55146 

77777 



25230 

12447 

16567 

43452 

15154 

77777 



77777 

11 

72101 

02101 

02454 

75150 

72565 

26665 

40177 



77777 



Printout #14 



SYMBOL 
A 77 77 77 77 



, A A 


P 


P E 


A R S 


A 


A M 


N G 


A 


S D 


B S C 


R 


I P 


T S A 


F 


R 


A 77 77 


77 


77 77 


. 77 77 


77 


77 77 

Printout #15 


W R 


D 


. A 


TAP 


E 


. A 


A P P 


E 


A R 


S A A 


M 


N 


GAS 


U 


B S 


C R I 


P 


T S 


A F 


R 


A 77 



77 77 77 77 77 



610 





IA 


PK 







40 


PK1 


20 


1 


65 


67256 


52654 


2 


34 


52666 


50131 


3 


51 


54017 


77777 


4 











5 


01 


34502 


64667 


6 


27 


30016 


63330 


7 


01 


31465 


12466 


10 


34 


50320 


15251 


11 


34 


50660 


10101 


12 


01 


01010 


10101 


13 


01 


70245 


43424 


14 


25 


46302 


10177 


15 











16 











17 











20 


22 


77777 


77777 


21 


40 


PK23 


11 


22 


40 


PK23 


17 


23 


31 


67502 


66634 


24 


51 


50210 


17777 


25 











26 


21 


01244 


75150 


27 


32 


01656 


72565 


30 


26 


54345 


26665 


31 


01 


31515 


40177 


32 











33 


22 


01010 


10101 


34 


01 


01010 


10101 


35 


01 


01010 


10101 


36 


24 


54326 


74730 


37 


50 


66650 


16567 


40 


XJIt 


30543 


14667 


41 


51 


67652 


27777 




CA 


PK42 





Printout #16 



S D B S C R 
I P T S A F 
R A 77 77 77 



A 


I 


N 


c 


L 


D 




D 


E 


A 


T 


H 


E 




A 


F 


L 





A 


T 




i 


N 


G 


A 
I—* 


p 







I 


N 


T 


A A 


A 




A A 


AAA 


A 




A 


V 


A 


R 


I 


A 




B 


L 


E 


t 


A 


77 




• 


77 


77 


77 


77 


77 

Printout 


#17 
*17A 


F 


D 


N 


C 


T 


I 







N 


? 


A 


77 


77 




• 


A 


A 


M 





N 




G 


A 


S 


U 


B 


S 




C 


R 


I 


P 


T 


S 




A 


F 





R 


A 


77 





. A A A A A 

A A A A A A 

A A A A A A 

A R G D M E 

N T S A S D 



D S 



77 77 



611 





IA 


PL 











40 


PL2 


14 






1 


40 


PL2 


24 






2 


65 


67256 


52654 


SUB 


SCR 


3 


34 


52663 


02701 


I P T 


E D A 


4 


70 


24543 


42425 


V A R 


I A B 


5 
6 
7 


46 



21 


30210 



01244 


17777 



75150 


L E , 


A 77 77 


f A A 


M N 


10 


32 


01656 


72565 


G A s 


DBS 


11 


26 


54345 


26665 


C R I 


P T S 


12 


01 


31515 


40101 


A F 


R A A 


13 


01 


01010 


10101 


AAA 


AAA 


14 















15 


22 


77777 


77701 


. 77 77 


77 77 A 


16 


65 


67256 


52654 


SUB 


SCR 


17 


34 


52666 


50131 


I P T 


S A F 


20 


51 


54014 


62466 


R A 


L A T 


21 


30 


65660 


17024 


EST 


A V A 


22 


54 


34242 


54630 


R I A 


B L E 


23 


01 


50516 


60126 


A N 


T A c 


24 


33 


30264 


53027 


H E C 


K E D 


25 


22 
CA 


77777 
PL26 


77777 


. 77 77 


77 77 77 



Printout #18 
#18A 



612 





1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 

15 

16 

17 

20 

21 

22 

23 

24 

25 

26 

27 

30 

31 

32 





1 
2 
3 
4 
5 
6 
7 

10 
11 
12 
13 
14 
15 
16 
17 



IA 

40 

46 

73 

34 

47 



21 

32 

26 

01 

01 



22 

40 

52 

01 

66 

73 

01 



21 

32 

26 

01 

01 



22 

CA 

IA 

40 

65 

34 

51 



01 

27 

30 

52 

65 

01 

01 







22 

CA 



PM 

PM1 

34255 

01545 

50300 

25514 



01244 

01656 

54345 

31515 

01010 



77777 

PM16 

65306 

51523 

34515 

47255 

77777 



01244 

01656 

54345 

31515 

01017 



77777 

PM33 

PN 

PN1 

67256 

52666 

54017 



34502 

30016 

54652 

66012 

66245 

01010 

77777 







77777 

PN20 



14 

42454 

16766 

16573 

62101 



75150 

72565 

26665 

40101 

17777 



77777 

15 

72751 

05424 

00165 

14621 

77777 



75150 

72565 

26665 

40101 

77777 



77777 



17 

52654 

50131 

77777 



64667 

56752 

65434 

65150 

06621 

10101 

77777 







77777 



Printout #19 



L I B R A R 

Y A R U T 

I N E A S Y 

M B L . A 



t 


A 


A 


M 





N 


G 


A 


S 


D 


B 


S 


C 


R 


I 


P 


T 


S 


A 


F 





R 


A 


A 


A A 


A 


A 


77 


77 


• 


77 


77 


77 


77 


77 
Printout #20 


p 


S 


E 


D 


D 





A 





P 


E 


R 


A 


T 


I 





N 


A 


S 


Y 


M 


B 





L 


t 


A 


77 


77 


77 


77 


77 


t 


A 


A 


M 





N 


G 


A 


S 


D 


B 


S 


C 


R 


I 


P 


T 


S 


A 


F 





R 


A A 


AAA 


77 


77 


77 




77 


77 


77 


77 


77 
Printout #21 


s 


U 


B 


S 


C 


R 


i 


P 


T 


S 


A 


F 





R 


A 


77 


77 


77 


A 


I 


N 


C 


L 


U 


D 


E 


A 


S 


U 


P 


E 


R 


s 


c 


R 


I 


P 


T 


A 


c 





N 


S 


T 


A 


N 


T 


f 


A 


A 


A 


A 


A 


A 


A 


77 


77 


77 


77 


77 



77 77 77 77 77 



613 





1 

2 
3 

4 
5 
6 
7 
10 
11 
12 
13 
14 
15 
16 
17 
20 
21 
22 
23 
24 
25 
26 
27 
30 



IA 

40 

26 

47 

32 

32 

26 

01 



21 

51 

01 







22 

40 

34 

30 

47 

31 

27 

26 

01 



22 

CA 



P0 

P01 

51474 

34656 

01244 

01656 

54345 

31515 



01315 

71345 

01010 







77777 

P020 

50265 

26660 

25305 

01702 

01656 

54345 

31515 



77777 

P031 



16 

72401 

53450 

75150 

72565 

26665 

40177 



14646 

03221 

10177 







77777 

11 

15454 

15067 

40151 

44634 

72565 

26665 

40177 



77777 



C M M A A 

M I S S I N 

G A A M N 

G A S D B S 

C R I P T S 

A F R A 77 



Printout #22 



, A F L 


L 


OWING 


• 


A A A A A 


77 


. 77 77 77 77 


77 




Printout #23 


I N C R 


R 


E C T A N 


D 


M B E R A 





F A V A L 


I 


D A S U B 


S 


C R I P T 


s 


A F R A 


77 



77 77 77 77 77 



614 





IA 


PP 


















o 


40 


PPl 


22 












Dy -S n + svn +• 
1 1111 I>UU u 


#24 


1 


30 


50270 


15131 


E 


N 


D 


A 





F 




2 


01 


65305 


06630 


A 


S 


E 


N 


T 


E 




3 


50 


26300 


16573 


N 


C 


E 


A 


S 


Y 




4 


47 


25514 


60131 


M 


B 





L 


A 


F 




5 


51 


46465 


17165 





L 


L 





w 


S 




6 


01 


26465 


16530 


A 


C 


L 





s 


E 




7 


01 


65672 


56526 


A 


S 


D 


B 


s 


C 




10 


54 


34526 


60101 


R 


I 


P 


T 


A 


A 




11 


01 


01010 


10152 


A 


A A 


A 


A 


p 




12 


24 


54305 


06633 


A 


R 


E 


N 


T 


H 




13 


30 


65346 


50131 


E 


S 


I 


S 


A 


F 




14 


51 


54017 


77777 





R 


A 


77 


77 


77 




15 

























16 


22 


01543 


06566 


• 


A 


R 


E 


S 


T 




17 


01 


51310 


16530 


A 





F 


A 


S 


E 




20 


66 


30502 


63001 


T 


E 


N 


C 


E 


A 




21 


50 


51660 


12633 


N 





T 


A 


C 


H 




22 


30 


26453 


02722 


E 


C 


K 


E 


D 


A 




23 


40 


PP24 


14 












Printout 


#25 


24 


26 


51474 


72401 


C 





M 


M 


A 


A 




25 


47 


34656 


53450 


M 


I 


S 


S 


I 


N 




26 


32 


01315 


14646 


G 


A 


F 





L 


L 




27 


51 


71345 


03201 





w 


I 


N 


G 


A 




30 


26 


46516 


53001 


C 


L 





S 


E 


A 




31 


65 


67256 


52654 


S 


D 


B 


S 


C 


R 




32 


34 


52660 


15224 


I 


P 


T 


A 


P 


A 




33 


54 


30506 


63330 


R 


E 


N 


T 


H 


E 




34 


65 


34650 


10131 


S 


I 


S 


A 


A 


F 




35 


51 


54017 


77777 





R 


A 


77 


77 


77 




36 

























37 


22 
CA 


77777 
pp/in 

* * ~3L\f 


77777 


• 


77 


77 


77 


77 


77 





615 





IA 


PQ 



















40 


PQ1 


14 












Printout #26 


1 


71 


24545 


03450 


W 


A 


R 


N 


I 


N 


2 


32 


21012 


45432 


G 


t 


A 


A 


R 


G 


3 


67 


47305 


06617 


D 


M 


E 


N 


T 


( 


4 


65 


43015 


13101 


S 


) 


A 





F 


A 


5 























6 


77 


01656 


75230 


77 


A 


s 


D 


P 


E 


7 


54 


31466 


75167 


R 


F 


L 


D 





D 


10 


65 


22012 


45432 


S 


. 


A 


A 


R 


G 


11 


67 


47305 


06665 


D 


M 


E 


N 


T 


S 


12 


01 


01010 


10150 


A 


A 


A 


A 


A 


N 


13 


51 


66012 


63330 





T 


A 


c 


H 


E 


14 


26 


45302 


72277 


C 


K 


E 


D 


9 


77 


15 


40 


PQ16 


13 












Printout #27 


16 


71 


51542 


72101 


w 





R 


D 


t 


A 


17 


66 


24523 


02101 


T 


A 


P 


E 


t 


A 


20 


24 


52523 


02454 


A 


P 


P 


E 


A 


R 


21 


65 


01244 


75150 


S 


A 


A 


M 





N 


22 


32 


01245 


43267 


G 


A 


A 


R 


G 


D 


23 


47 


30506 


66501 


M 


E 


N 


T 


S 


A 


24 


51 


31013 


16750 





F 


A 


F 


D 


N 


25 


26 


66345 


15021 


C 


T 


I 





N 


» 


26 


01 


77777 


77777 


A 


77 


77 


77 


77 


77 


27 























30 


22 
CA 


77777 
PQ31 


77777 


• 


77 


77 


77 


77 


77 



616 





IA 


PR 


















n 


40 


PR1 


On 












Di< -S *%*■ j* t< *• 

1 J. lllbUU L 


#28 


1 


30 


50270 


15131 


E 


N 


D 


A 





F 




2 


01 


65305 


06630 


A 


S 


E 


N 


T 


E 




3 


50 


26300 


16573 


N 


c 


E 


A 


S 


Y 




4 


47 


25514 


60124 


M 


B 





L 


A 


A 




5 


47 


51503 


20124 


M 





N 


G 


A 


A 




6 


54 


32674 


73050 


R 


G 


U 


M 


E 


N 




7 


66 


65015 


13101 


T 


S 


A 





F 


A 




10 


31 


67502 


66634 


F 


n 


N 


r. 


T 


I 




11 


51 


50210 


10177 





N 


t 


A A 


77 




12 

























13 


22 


01543 


06566 


• 


A 


R 


E 


S 


T 




14 


01 


51310 


16530 


A 





F 


A 


S 


E 




15 


50 


66305 


02630 


N 


T 


E 


N 


c 


E 




16 


01 


50516 


60126 


A 


N 





T 


A 


C 




17 


33 


30264 


53027 


H 


E 


C 


K 


E 


D 




20 


22 


77777 


77777 


% 


77 


77 


77 


77 


77 




21 


40 


PR22 


21 












Printout 


#29 


22 


34 


50702 


44634 


I 


N 


V 


A 


L 


I 




23 


27 


01662 


45230 


D 


A 


T 


A 


P 


E 




24 


01 


27306 


53432 


A 


D 


E 


S 


I 


G 




25 


50 


24663 


45150 


N 


A 


T 


I 





N 




26 


22 


01305 


02701 


. 


A 


E 


N 


D 


A 




27 


51 


31016 


53050 





F 


A 


S 


E 


N 




30 


66 


30502 


63001 


T 


E 


N 


c 


E 


A 




31 


65 


73472 


55146 


S 


Y 


M 


B 





L 




32 


01 


01010 


10131 


A 


A 


A 


A 


A 


F 




33 


51 


46465 


17165 





L 


L 





w 


S 




34 


01 


71515 


42721 


A 


W 





R 


D 


T 




35 


01 


66245 


23022 


A 


T 


A 


P 


E 


. 




36 


01 


54306 


56601 


A 


R 


E 


S 


T 


A 




37 


51 


31016 


53050 





F 


A 


S 


E 


N 




Af\ 


UL. 


Of\CAO 


\JfJ\J\JX 


T» 


c 


M 


n 


c 


A 




*±V/ 


\J\J 


OUJVi, 


J. 


IU 


HI 


\j 


JLi 


IS 




41 


50 


51660 


12633 


N 





T 


A 


c 


H 




42 


30 
CA 


26453 
PR43 


02722 


E 


C 


K 


E 


D 


• 





617 





IA 


PT 





















40 


PT1 


20 












Printout 


»30 


1 


34 


50702 


44634 


I 


N 


V 


A 


L 


I 




2 


27 


01662 


45230 


D 


A 


T 


A 


P 


E 




3 


01 


27306 


53432 


A 


D 


E 


S 


I 


G 




4 


50 


24663 


45150 


N 


A 


T 


I 





N 




5 


22 


01265 


14747 


, 


A 


C 





M 


M 




6 


24 


01515 


40165 


A 


A 





R 


A 


S 




7 


30 


47340 


22651 


E 


M 


I 


- 


c 







10 


46 


51500 


13151 


L 





N 


A 


F 







11 


46 


46517 


16501 


L 


L 





w 


S 


A 




12 


71 


51542 


72101 


W 





R 


D 


t 


A 




13 


66 


24523 


02201 


T 


A 


P 


E 




A 




14 


54 


30656 


60151 


R 


E 


S 


T 


A 







15 


31 


01653 


05066 


F 


A 


s 


E 


N 


T 




16 


30 


50263 


00150 


E 


N 


c 


E 


A 


N 




17 


51 


66012 


63330 





T 


A 


C 


H 


E 




20 


26 


45302 


72277 


C 


K 


E 


D 


» 


77 




21 


40 


PT22 


20 












Printout 


*31 


22 


34 


50702 


44634 


I 


N 


V 


A 


L 


I 




23 


27 


01662 


45230 


D 


A 


T 


A 


P 


E 




24 


01 


27306 


53432 


A 


D 


E 


S 


I 


G 




25 


50 


24663 


45150 


N 


A 


T 


I 





N 




26 


22 


01515 


23050 


. 


A 





P 


E 


N 




27 


01 


52245 


43050 


A 


P 


A 


R 


E 


N 




30 


66 


33306 


53465 


T 


H 


E 


S 


I 


S 




31 


01 


31514 


64651 


A 


F 





L 


L 







32 


71 


65010 


10171 


w 


S 


A 


A A 


w 




33 


51 


54272 


10166 





R 


D 


» 


A 


T 




34 


24 


52302 


20154 


A 


P 


E 


» 


A 


R 




35 


30 


65660 


15131 


E 


S 


T 


A 





F 




36 


01 


65305 


06630 


A 


S 


E 


N 


T 


E 




37 


50 


26300 


15051 


N 


C 


E 


A 


N 







40 


66 


01263 


33026 


T 


A 


C 


H 


E 


C 




41 


45 
CA 


30272 
PT42 


27777 


K 


E 


D 


• 


77 


77 





618 





IA 


PD 



















40 


PD1 


20 












Printout #32 


1 


34 


50702 


44634 


I 


N 


V 


A 


L 


I 


2 


27 


01662 


45230 


D 


A 


T 


A 


P 


E 


3 


01 


27306 


53432 


A 


D 


E 


S 


I 


G 


4 


50 


24663 


45150 


N 


A 


T 


I 





N 


5 


22 


01264 


65165 


m 


A 


C 


L 





S 


6 


30 


01522 


45430 


E 


A 


P 


A 


R 


E 


7 


50 


66333 


06534 


N 


T 


H 


E 


S 


I 


■i r\ 

1U 


65 


01315 


14646 


c 


A 


F 




r 


T 
Li 


11 


51 


71650 


10171 





w 


S 


A A 


w 


12 


51 


54272 


10166 





R 


D 


t 


A 


T 


13 


24 


52302 


20154 


A 


P 


E 




A 


R 


14 


30 


65660 


15131 


E 


S 


T 


A 





F 


15 


01 


65305 


06630 


A 


S 


E 


N 


T 


E 


16 


50 


26300 


15051 


N 


C 


E 


A 


N 





17 


66 


01263 


33026 


T 


A 


C 


H 


E 


C 


20 


45 


30272 


27777 


K 


E 


D 


, 


77 


77 


21 


40 


PU22 


21 












Printout »33 


22 


34 


50702 


44634 


I 


N 


V 


A 


L 


I 


23 


27 


01662 


45230 


D 


A 


T 


A 


P 


E 


24 


01 


27306 


53432 


A 


D 


E 


S 


I 


G 


25 


50 


24663 


45150 


N 


A 


T 


I 





N 


26 


22 


01657 


34725 


• 


A 


S 


Y 


M 


B 


27 


51 


46210 


17777 





L 


t 


A 


77 


77 


30 























31 


21 


01315 


14646 


t 


A 


F 





L 


L 


32 


51 


71650 


10101 





w 


S 


A 


A A 


33 


01 


01010 


10101 


A A 


A A 


A A 


34 


71 


51542 


72101 


w 





R 


D 


i 


A 


35 


66 


24523 


02201 


T 


A 


P 


E 


, 


A 


36 


54 


30656 


60151 


R 


E 


S 


T 


A 





37 


31 


01653 


05066 


F 


A 


S 


E 


N 


T 


40 


30 


50263 


00150 


E 


N 


C 


E 




N 


41 


51 


66012 


63330 





T 


A 


C 


H 


E 


42 


26 
CA 


45302 
PD43 


72277 


C 


K 


E 


D 


• 


77 



619 





IA 


PV 



















40 


PV1 


23 










Printout 


*34 


1 


34 


50702 


44634 


I N 


V 


A 


L 


I 




2 


27 


01662 


45230 


D A 


T 


A 


P 


E 




3 


01 


27306 


53432 


A D 


E 


S 


I 


G 




4 


50 


24663 


45150 


N A 


T 


I 





N 




5 


22 


01463 


42554 


. A 


L 


I 


B 


R 




6 


24 


54730 


15451 


A R 


Y 


A 


R 







7 


67 


66345 


03001 


U T 


I 


N 


E 


A 




10 


65 


73472 


55146 


S Y 


M 


B 





L 




11 


21 


01010 


10177 


. A 


A 


A A 


77 




12 























13 


21 


01315 


14646 


, A 


F 





L 


L 




14 


51 


71650 


17151 


o w 


S 


A 


W 







15 


54 


27210 


16624 


R D 


? 


A 


T 


A 




16 


52 


30220 


15430 


P E 


» 


A 


R 


E 




17 


65 


66015 


13101 


S T 


A 





F 


A 




20 


65 


30506 


63050 


S E 


N 


T 


E 


N 




21 


26 


30015 


05166 


C E 


A 


N 





T 




22 


01 


26333 


02645 


A c 


H 


E 


C 


K 




23 


30 


27227 


77777 


E D 


. 


77 


77 


77 




24 


40 


PV25 


23 










Printout 


«35 


25 


34 


50702 


44634 


I N 


V 


A 


L 


I 




26 


27 


01662 


45230 


D A 


T 


A 


P 


E 




27 


01 


27306 


53432 


A D 


E 


S 


I 


G 




30 


50 


24663 


45150 


N A 


T 


I 





N 




31 


22 


01526 


53067 


. A 


P 


S 


E 


D 




32 


27 


51015 


15230 


D 


A 





P 


E 




33 


54 


24663 


45150 


R A 


T 


I 





N 




34 


01 


65734 


72551 


A S 


Y 


M 


B 







35 


46 


21010 


10177 


L , 


A 


A A 


77 




36 























37 


21 


01315 


14646 


, A 


F 





L 


L 




40 


51 


71650 


17151 


w 


S 


A 


W 







41 


54 


27210 


16624 


R D 


t 


A 


T 


A 




42 


52 


30220 


15430 


P E 


. 


A 


R 


E 




43 


65 


66015 


13101 


S T 


A 





F 


A 




44 


65 


30506 


63050 


S E 


N 


T 


E 


N 




45 


26 


30015 


05166 


C E 


A 


N 





T 




46 


01 


26333 


02645 


A c 


H 


E 


C 


K 




47 


30 
CA 


27227 
PV50 


77777 


E D 


• 


77 


77 


77 





620 





IA 


PW 



















40 


PW1 


24 












Printout #36 


I 


34 


50702 


44634 


r 


N 


V 


A 


L 


I 


2 


27 


01662 


45230 


D 


A 


T 


A 


P 


E 


3 


01 


65734 


72551 


A 


s 


Y 


M 


B 





4 


46 


23015 


43065 


L 


» 


A 


R 


E 


S 


5 


66 


01513 


10165 


T 


A 





F 


A 


S 


6 


30 


50663 


05026 


E 


N 


T 


E 


N 


C 


7 


30 


01675 


02633 


E 


A 


D 


N 


C 


H 


10 


30 


26453 


02722 


E 


c 


K 


E 


D 


, 


11 


01 


50515 


00231 


A 


N 





N 


- 


F 


12 


34 


72302 


70152 


I 


X 


E 


D 


A 


P 


13 


51 


34506 


60170 





I 


N 


T 


A 


V 


14 


24 


54342 


42546 


A 


R 


I 


A 


B 


L 


15 


30 


21017 


77777 


E 


t 


A 


77 


77 


77 


16 























17 























20 























21 


21 


01315 


14646 


i 


A 


F 





L 


L 


22 


51 


71650 


17151 





w 


S 


A 


W 





23 


54 


27210 


16624 


R 


D 


» 


A 


T 


A 


24 


52 
CA 

IA 


30227 
PW25 

PX 


77777 


P 


E 




77 


77 


77 





40 


PX1 


23 












Printout #37 


1 


34 


50702 


44634 


I 


N 


V 


A 


L 


I 


2 


27 


01662 


45230 


D 


A 


T 


A 


P 


E 


3 


01 


50674 


72530 


A 


N 


U 


M 


B 


E 


4 


54 


23015 


43065 


R 


i 


A 


R 


E 


S 


5 


66 


01513 


10165 


T 


A 





F 


A 


S 


6 


30 


50663 


05026 


E 


N 


T 


E 


N 


C 


7 


30 




JLWV J. 


E 


A 


M 
it 


n 


T 


A 


10 


26 


33302 


64530 


C 


H 


E 


C 


K 


E 


11 


27 


22010 


10124 


D 


. 9 


A 


A 


A 


A 


12 


65 


65674 


73027 


S 


S 


u 


M 


E 


D 


13 


01 


26515 


06566 


A 


C 





N 


S 


T 


14 


24 


50662 


10177 


A 


N 


T 


t 


A 


77 


15 























16 























17 























20 


21 


01315 


14646 


t 


A 


F 





L 


L 


21 


51 


71650 


17151 





w 


S 


A 


W 





22 


54 


27210 


16624 


R 


D 


t 


A 


T 


A 


23 


52 
CA 


30227 
PX24 


77777 


P 


E 


• 


77 


77 


77 



621 





IA 


PY 





















40 


PY1 


23 












Printout 


*38 


1 


51 


52305 


00152 





P 


E 


N 


A 


P 




2 


24 


54305 


06633 


A 


R 


E 


N 


T 


H 




3 


30 


65346 


50131 


E 


S 


I 


S 


A 


F 




4 


51 


46465 


17165 





L 


L 





w 


S 




5 


01 


66245 


23001 


A 


T 


A 


P 


E 


A 




6 


27 


30653 


43250 


D 


E 


S 


I 


G 


N 




7 


24 


66345 


15022 


A 


T 


I 





N 


, 




10 


01 


65335 


16746 


A 


S 


H 





U 


L 




11 


27 


01253 


00177 


D 


A 


B 


E 


A 


77 




12 


26 


51474 


72401 


C 





M 


M 


A 


A 




13 


51 


54013 


05027 





R 


A 


E 


N 


D 




14 


01 


51310 


16530 


A 





F 


A 


S 


E 




15 


50 


66305 


02630 


N 


T 


E 


N 


C 


E 




16 


01 


65734 


72551 


A 


S 


Y 


M 


B 







17 


46 


22015 


43065 


L 


9 


A 


R 


E 


S 




20 


66 


01513 


10165 


T 


A 





F 


A 


S 




21 


30 


50663 


05026 


E 


N 


T 


E 


N 


C 




22 


30 


01675 


02633 


E 


A 


D 


N 


C 


H 




23 


30 


26453 


02722 


E 


c 


K 


E 


D 


m 




24 


40 


PY25 


23 












Printout 


*39 


25 


26 


46516 


53001 


C 


L 





S 


E 


A 




26 


52 


24543 


05066 


P 


A 


R 


E 


N 


T 




27 


33 


30653 


46501 


H 


E 


S 


I 


S 


A 




30 


31 


51464 


65171 


F 





L 


L 





w 




31 


65 


01662 


45230 


S 


A 


T 


A 


p 


E 




32 


01 


27306 


53432 


A 


D 


E 


S 


I 


G 




33 


50 


24663 


45150 


N 


A 


T 


I 





N 




34 


22 


01653 


35167 


• 


A 


S 


H 





D 




35 


46 


27012 


53001 


L 


D 


A 


B 


E 


A 




36 


26 


51474 


72401 


C 





M 


M 


A 


A 




37 


51 


54013 


05027 





R 


A 


E 


N 


D 




40 


01 


51310 


16530 


A 





F 


A 


S 


E 




41 


50 


66305 


02630 


N 


T 


E 


N 


C 


E 




42 


01 


65734 


72551 


A 


S 


Y 


M 


B 







43 


46 


22015 


43065 


L 


, 


A 


R 


E 


S 




44 


66 


01513 


10165 


T 


A 





F 


A 


S 




45 


30 


50663 


05026 


E 


N 


T 


E 


N 


C 




46 


30 


01675 


02633 


E 


A 


U 


N 


C 


H 




47 


30 
CA 


26453 
PY50 


02722 


E 


c 


K 


E 


D 


• 





622 





IA 


PZ 



















40 


FZ1 


23 












Printout &40 


1 


26 


51474 


72401 


C 





M 


M 


A 


A 


2 


51 


54013 


05027 





R 


A 


E 


N 


D 


3 


01 


51310 


16530 


A 





F 


A 


S 


E 


4 


50 


66305 


02630 


N 


T 


E 


N 


C 


E 


5 


01 


65734 


72551 


A 


S 


Y 


M 


B 





6 


46 


01473 


46565 


L 


A 


M 


I 


S 


S 


7 


34 


50322 


20166 


I 


N 


G 


% 


A 


T 


i r\ 


O/l 


COOAfi 


16573 


A 


r» 


T? 


A 


r> 


XT 


J.U 


£.1 


J6JUU 


H 


r 


C 


£-i 


O 


I 


11 


47 


25514 


60131 


M 


B 





L 


A 


F 


12 


51 


46465 


17130 





L 


L 





w 


E 


13 


27 


01257 


30177 


D 


A 


B 


Y 


A 


77 


14 























15 























16 























17 


22 


01543 


06566 


^ 


A 


R 


E 


s 


T 


20 


01 


51310 


16530 


A 





F 


A 


s 


E 


21 


50 


66305 


02630 


N 


T 


E 


N 


c 


E 


22 


01 


67502 


63330 


A 


D 


N 


C 


H 


E 


23 


26 
CA 


45302 
PZ24 


72277 


c 


K 


E 


D 


• 


77 



623 





TA 


SA 





















40 


SA1 


15 












Printout 


*4l 


1 


65 


30506 


63050 


S 


E 


N 


T 


E 


N 




2 


26 


30015 


05166 


C 


E 


A 


N 





T 




3 


01 


26333 


02645 


A 


C 


H 


E 


C 


K 




4 


30 


27012 


53073 


E 


D 


A 


B 


E 


Y 




5 


51 


50270 


16624 





N 


D 


A 


T 


A 




6 


52 


30012 


73065 


P 


E 


A 


D 


E 


S 




7 


34 


32502 


46634 


I 


G 


N 


A 


T 


I 




10 


51 


50012 


53026 





N 


A 


B 


E 


C 




11 


24 


67653 


00151 


A 


D 


s 


E 


A 







12 


31 


01525 


43026 


F 


A 


p 


R 


E 


C 




13 


30 


27345 


03201 


E 


D 


i 


N 


G 


A 




14 


30 


54545 


15465 


E 


R 


R 





R 


s 




15 


22 


77777 


77777 


, 


77 


77 


77 


77 


77 




16 


40 


SA17 


23 












Printout 


«42 


17 


71 


24545 


03450 


W 


A 


R 


N 


I 


N 




20 


32 


21010 


12646 


G 


i 


A 


A 


C 


L 




21 


51 


65300 


15224 





S 


E 


A 


P 


A 




22 


54 


30506 


63330 


R 


E 


N 


T 


H 


E 




23 


65 


34650 


17134 


S 


I 


S 


A 


W 


I 




24 


66 


33516 


76601 


T 


H 





D 


T 


A 




25 


26 


51545 


43065 


C 





R 


R 


E 


s 




26 


52 


51502 


73450 


P 





N 


D 


I 


N 




27 


32 


01010 


10151 


G 


A 


A 


A A 







30 


52 


30500 


13151 


P 


E 


N 


A 


F 







31 


46 


46517 


16501 


L 


L 





w 


S 


A 




32 


66 


24523 


00127 


T 


A 


P 


E 


A 


D 




33 


30 


65343 


25024 


E 


S 


I 


G 


N 


A 




34 


66 


34515 


02201 


T 


I 





N 


% 


A 




35 


54 


30656 


60151 


R 


E 


s 


T 


A 







36 


31 


01653 


05066 


F 


A 


s 


E 


N 


T 




37 


30 


50263 


00134 


E 


N 


c 


E 


A 


I 




40 


32 


50515 


43027 


G 


N 





R 


E 


D 




41 


22 
CA 


77777 
SA42 


77777 


• 


77 


77 


77 


77 


77 





624 





IA 


SB 





















40 


SB1 


35 












Printout 


»43 


1 


71 


24545 


03450 


W 


A 


R 


N 


I 


N 




2 


32 


21010 


16624 


G 


» 


A 


A 


T 


A 




3 


52 


30012 


73065 


P 


E 


A 


D 


E 


S 




4 


34 


32502 


46634 


I 


G 


N 


A 


T 


I 




5 


51 


50016 


53026 





N 


A 


S 


E 


C 




6 


66 


34515 


00165 


T 


I 





N 


A 


s 




7 


30 


51674 


62701 


H 





D 


L 


D 


A 




10 


25 


30013 


15146 


B 


Ei 


A 
LA 


r 




T 




11 


46 


51713 


02701 


L 





w 


E 


D 


A 




12 


25 


73016 


63330 


B 


Y 


A 


T 


H 


E 




13 


01 


30502 


70151 


A 


E 


N 


D 


A 







14 


31 


01653 


05066 


F 


A 


S 


E 


N 


T 




15 


30 


50263 


00165 


E 


N 


c 


E 


A 


S 




16 


73 


47255 


14601 


Y 


M 


B 





L 


A 




17 


51 


54012 


45001 





R 


A 


A 


N 


A 




20 


51 


52305 


00133 





P 


E 


N 


A 


H 




21 


30 


24273 


45032 


E 


A 


D 


I 


N 


G 




22 


01 


52245 


43050 


A 


P 


A 


R 


E 


N 




23 


66 


33306 


53465 


T 


H 


E 


S 


I 


S 




24 


21 


34506 


56630 


t 


I 


N 


S 


T 


E 




25 


24 


27015 


13101 


A 


D 


A 





F 


A 




26 

























27 

























30 

























31 


22 


01543 


06566 


m 


A 


R 


E 


S 


T 




32 


01 


51310 


16530 


A 





F 


A 


S 


E 




33 


50 


66305 


02630 


N 


T 


E 


N 


C 


E 




34 


01 


34325 


05154 


A 


I 


G 


N 





R 




35 


30 
CA 


27227 
SB36 


77777 


E 


D 


• 


77 


77 


77 





625 





IA 


SC 





















40 


SCI 


23 












Printout 


#44 


1 


71 


24545 


03450 


W 


A 


R 


N 


I 


N 




2 


32 


21010 


12646 


G 


» 


A 


A 


C 


L 




3 


51 


65300 


15224 





S 


E 


A 


P 


A 




4 


54 


30506 


63330 


R 


E 


N 


T 


H 


E 




5 


65 


34650 


17134 


S 


I 


S 


A 


W 


I 




6 


66 


33516 


76601 


T 


H 





D 


T 


A 




7 


26 


51545 


43065 


C 





R 


R 


E 


s 




10 


52 


51502 


73450 


P 





N 


D 


I 


N 




11 


32 


01010 


10151 


G 


A 


A 


A A 







12 


52 


30500 


12452 


P 


E 


N 


A 


A 


P 




13 


52 


30245 


46501 


P 


E 


A 


R 


S 


A 




14 


24 


47515 


03201 


A 


M 





N 


G 


A 




15 


26 


51466 


74750 


C 





L 


D 


M 


N 




16 


01 


33302 


42734 


A 


H 


E 


A 


D 


I 




17 


50 


32652 


20154 


N 


G 


S 


m 


A 


R 




20 


30 


65660 


15131 


E 


S 


T 


A 





F 




21 


01 


65305 


06630 


A 


S 


E 


N 


T 


E 




22 


50 


26300 


13432 


N 


C 


E 


A 


I 


G 




23 


50 
CA 


51543 
SC24 


02722 


N 





R 


E 


D 


• 





626 





IA 


SD 





















40 


SD1 


35 












Printout 


*45 


1 


71 


24545 


03450 


W 


A 


R 


N 


I 


N 




2 


32 


21010 


15254 


G 


t 


A 


A 


P 


R 




3 


30 


26302 


73450 


E 


C 


E 


D 


I 


N 




4 


32 


01265 


14667 


G 


A 


C 





L 


U 




5 


47 


50013 


33024 


M 


N 


A 


H 


E 


A 




6 


27 


34503 


20165 


D 


I 


N 


G 


A 


S 




7 


33 


51674 


62701 


H 





D 


L 


D 


A 




10 


25 


30013 


15146 


B 


E 


A 


F 





L 




11 


46 


51713 


02701 


L 





w 


E 


D 


A 




12 


25 


73015 


15230 


B 


Y 


A 





P 


E 




13 


50 


01265 


14667 


N 


A 


c 





L 


D 




14 


47 


50013 


33024 


M 


N 


A 


H 


E 


A 




15 


27 


34503 


20152 


D 


I 


N 


G 


A 


P 




16 


24 


54305 


06633 


A 


R 


E 


N 


T 


H 




17 


30 


65346 


50151 


E 


S 


I 


S 


A 







20 


54 


01305 


02701 


R 


A 


E 


N 


D 


A 




21 


51 


31016 


53050 





F 


A 


S 


E 


N 




22 


66 


30502 


63001 


T 


E 


N 


C 


E 


A 




23 


65 


73472 


55146 


S 


Y 


M 


B 





L 




24 


21 


34506 


56630 


t 


I 


N 


S 


T 


E 




25 


24 


27015 


13101 


A 


D 


A 





F 


A 




26 











- 


- 


- 


~ 


-. 


- 




27 











- 


- 


- 


- 


- 


- 




30 

























31 


22 


01543 


06566 


• 


A 


R 


E 


s 


T 




32 


01 


51310 


16530 


A 





F 


A 


s 


E 




33 


50 


66305 


02630 


N 


T 


E 


N 


c 


E 




34 


01 


34325 


05154 


A 


I 


G 


N 





R 




35 


30 
CA 


27227 
SD36 


77777 


E 


D 


• 


77 


77 


77 





627 





IA 


SE 





















40 


SE1 


15 












Printout 


*46 


1 


71 


24545 


03450 


W 


A 


R 


N 


I 


N 




2 


32 


21010 


13050 


G 


» 


A 


A 


E 


N 




3 


27 


01513 


10165 


D 


A 





F 


A 


S 




4 


30 


50663 


05026 


E 


N 


T 


E 


N 


C 




5 


30 


01657 


34725 


E 


A 


S 


Y 


M 


B 




6 


51 


46013 


45001 





L 


A 


I 


N 


A 




7 


26 


51466 


74750 


C 





L 


D 


M 


N 




10 


01 


33302 


42734 


A 


H 


E 


A 


D 


I 




11 


50 


32220 


10154 


N 


G 


, 


A 


A 


R 




12 


30 


65660 


15131 


E 


S 


T 


A 





F 




13 


01 


65305 


06630 


A 


S 


E 


N 


T 


E 




14 


50 


26300 


13432 


N 


C 


E 


A 


I 


G 




15 


50 


51543 


02722 


N 





R 


E 


D 


. 




16 


40 


SE17 


22 












Printout 


«47 


17 


71 


24545 


03450 


W 


A 


R 


N 


I 


N 




20 


32 


21010 


12427 


G 


t 


A 


A 


A 


D 




21 


44 


24263 


05066 


J 


A 


C 


E 


N 


T 




22 


01 


26465 


16530 


A 


C 


L 





S 


E 




23 


01 


52245 


43050 


A 


P 


A 


R 


E 


N 




24 


66 


33306 


53065 


T 


H 


E 


S 


E 


S 




25 


01 


24525 


23024 


A 


A 


P 


P 


E 


A 




26 


54 


01665 


10125 


R 


A 


T 





A 


B 




27 


30 


01010 


10147 


E 


A 


AAA 


M 




30 


34 


65653 


45032 


I 


s 


S 


I 


N 


G 




31 


01 


31514 


64651 


A 


F 





L 


L 







32 


71 


34503 


20166 


w 


I 


N 


G 


A 


T 




33 


34 


66463 


02201 


i 


T 


L 


E 


. 


A 




34 


54 


30656 


60151 


R 


E 


S 


T 


A 







35 


31 


01653 


05066 


F 


A 


S 


E 


N 


T 




36 


30 


50263 


00134 


E 


N 


C 


E 


A 


I 




37 


32 


50515 


43027 


G 


N 





R 


E 


D 




40 


22 
CA 


77777 
SE41 


77777 


• 


77 


77 


77 


77 


77 





628 





1A 


at 1 

















40 


SF1 


21 










Printout #48 


1 


71 


24545 


03450 


W 


A 


R 


N 


I N 


2 


32 


21010 


12646 


G 


t 


A 


A 


C L 


3 


51 


65300 


15224 





S 


E 


A 


P A 


4 


54 


30506 


63330 


R 


E 


N 


T 


H E 


5 


65 


34650 


17134 


S 


I 


S 


A 


W I 


6 


66 


33516 


76601 


T 


H 





D 


T A 


•7 
1 


26 


Cl C/1C 

%JJLxJ*±xJ 


loOuj 


r 




R 


R 


I? c 

U kJP 


10 


52 


51502 


73450 


P 





N 


D 


I N 


11 


32 


01010 


10151 


G 


A A 


A 


A o 


12 


52 


30500 


13151 


P 


E 


N 


A 


F 


13 


46 


46517 


16501 


L 


L 





w 


s A 


14 


66 


34664 


63022 


T 


I 


T 


L 


E . 


15 


01 


54306 


56601 


A 


R 


E 


S 


T A 


16 


51 


31016 


53050 





F 


A 


s 


E N 


17 


66 


30502 


63001 


T 


E 


N 


c 


E A 


20 


34 


32505 


15430 


I 


G 


N 





R E 


21 


27 


22777 


77777 


D 


, 


77 


77 


77 77 


22 


40 


SF23 


34 










Printout #49 


23 


71 


24545 


03450 


W 


A 


R 


N 


I N 


24 


32 


21010 


16634 


G 


t 


A A 


T I 


25 


66 


46300 


16530 


T 


L 


E 


A 


S E 


26 


26 


66345 


15001 


C 


T 


I 





N A 


27 


65 


33516 


74627 


s 


H 





u 


L D 


30 


01 


25300 


13151 


A 


B 


E 


A 


F 


31 


46 


46517 


13027 


L 


L 





w 


E D 


32 


01 


25730 


13050 


A 


B 


Y 


A 


E N 


33 


27 


01513 


10165 


D 


A 





F 


A s 


34 


30 


50663 


05026 


E 


N 


T 


E 


N C 


35 


30 


01657 


34725 


E 


A 


S 


Y 


M B 


36 


51 


46015 


15401 





L 


A 





R A 


37 


51 


52305 


00126 





P 


E 


N 


A c 


40 


51 


46674 


75001 





L 


u 


M 


N A 


41 


33 


30242 


73450 


H 


E 


A 


D 


I N 


42 


32 


01522 


45430 


G 


A 


P 


A 


R E 


43 


50 


66333 


06534 


N 


T 


H 


E 


S I 


44 


65 


21013 


45065 


S 


i 


A 


I 


N S 


45 


66 


30242 


70101 


T 


E 


A 


D 


A A 


46 


51 


31017 


77777 





F 


A 


77 


77 77 


47 





















50 





















51 





















52 


22 


01543 


06566 




A 


R 


E 


S T 


53 


01 


51310 


16530 


A 





F 


A 


S E 


54 


50 


66305 


02630 


N 


T 


E 


N 


C E 


55 


01 


34325 


05154 


A 


X 


G 


N 


R 


56 


30 
CA 


27227 
SF57 


77777 


E 


D 


• 


77 


77 77 



629 





IA 


SG 



















40 


SGI 


14 












Printout #50 


1 


71 


24545 


03450 


W 


A 


R 


N 


I 


N 


2 


32 


21010 


13050 


G 


t 


A 


A 


E 


N 


3 


27 


01513 


10165 


D 


A 





F 


A 


S 


4 


30 


50663 


05026 


E 


N 


T 


E 


N 


c 


5 


30 


01657 


34725 


E 


A 


S 


Y 


M 


B 


6 


51 


46013 


45001 





L 


A 


I 


N 


A 


7 


66 


34664 


63022 


T 


I 


T 


L 


E 


m 


10 


01 


54306 


56601 


A 


R 


E 


S 


T 


A 


11 


51 


31010 


10165 





F 


A 


A 


S 


A 


12 


30 


50663 


05026 


E 


N 


T 


E 


N 


c 


13 


30 


01343 


25051 


E 


A 


I 


G 


N 





14 


54 


30272 


27777 


R 


E 


D 


. 


77 


77 


15 


40 


SG16 


21 












Printout #51 


16 


47 


51543 


00166 


M 





R 


E 


A 


T 


17 


33 


24500 


13134 


H 


A 


N 


A 


F 


I 


20 


70 


30017 


02454 


V 


E 


A 


V 


A 


R 


21 


34 


24254 


63065 


I 


A 


B 


L 


E 


S 


22 


01 


66510 


12530 


A 


T 





A 


B 


E 


23 


01 


46346 


56630 


A 


L 


I 


s 


T 


E 


24 


27 


22017 


02454 


D 


# 


A 


V 


A 


R 


25 


34 


24254 


63065 


I 


A 


B 


L 


E 


S 


26 


01 


01010 


10131 


A 


AAA 


A 


F 


27 


51 


46465 


17134 





L 


L 





W 


I 


30 


50 


32017 


77777 


N 


G 


A 


77 


77 


77 


31 























32 























33 























34 


01 


50516 


60126 


A 


N 





T 


A 


C 


35 


33 


30264 


53027 


H 


E 


c 


K 


E 


D 


36 


22 
CA 


77777 
SG37 


77777 


• 


77 


77 


77 


77 


77 



630 





IA 


SH 

















40 


SHI 


13 










Printout #52 


1 


71 


24545 


03450 


W 


A 


R N 


I 


N 


2 


32 


21010 


14751 


G 


i 


A A 


M 





3 


54 


30012 


65146 


R 


E 


A c 





L 


4 


67 


47500 


13330 


D 


M 


N A 


H 


E 


5 


24 


27345 


03265 


A 


D 


I N 


G 


S 


6 


01 


66332 


45001 


A 


T 


H A 


N 


A 


7 


70 


24543 


42425 


V 


A 


R I 


A 


B 


10 


46 


30652 


20130 


L 


E 


S . 


A 


E 


11 


72 


26306 


56501 


X 


C 


E S 


s 


A 


12 


27 


30463 


06630 


D 


E 


L E 


T 


E 


13 


27 


22777 


77777 


D 


. 


77 77 


77 


77 


14 


40 


SH15 


22 










Printout #53 


15 


71 


24545 


03450 


W 


A 


R N 


I 


N 


16 


32 


21010 


14751 


G 


t 


A A 


M 





17 


54 


30016 


63324 


R 


E 


A T 


H 


A 


20 


50 


01050 


60126 


N 


A 


2 3 


A 


C 


21 


33 


24542 


42666 


H 


A 


R A 


C 


T 


22 


30 


54650 


13450 


E 


R 


S A 


I 


N 


23 


01 


70245 


43424 


A 


V 


A R 


I 


A 


24 


25 


46300 


15024 


B 


L 


E A 


N 


A 


25 


47 


30220 


10130 


M 


E 


. A 


A 


E 


26 


72 


26306 


56501 


X 


C 


E S 


s 


A 


27 


27 


30463 


06630 


D 


E 


L E 


T 


E 


30 


27 


01463 


02470 


D 


A 


L E 


A 


V 


31 


34 


50320 


17777 


I 


N 


G A 


77 


77 


32 





















33 





















34 





















35 





















36 


43 
CA 


22777 
SH37 


77777 


) 


• 


77 77 


77 


77 



631 





IA 


SI 





















40 


SI1 


22 














Warning #54 


1 


71 


24545 


03450 


W 


A 


R 


N 


I 


N 




2 


32 


21010 


14751 


G 


» 


A 


A 


M 







3 


54 


30016 


63324 


R 


E 


A 


T 


H 


A 




4 


50 


01050 


60126 


N 


A 


2 


3 


A 


C 




5 


33 


24542 


42666 


H 


A 


R 


A 


c 


T 




6 


30 


54650 


13450 


E 


R 


S 


A 


I 


N 




7 


01 


26514 


66747 


A 


C 





L 


u 


M 




10 


50 


01333 


02427 


N 


A 


H 


E 


A 


D 




11 


34 


50322 


20130 


I 


N 


G 


# 


A 


E 




12 


72 


26306 


56501 


X 


C 


E 


S 


s 


A 




13 


27 


30463 


06630 


D 


E 


L 


E 


T 


E 




14 


27 


01463 


02470 


D 


A 


L 


E 


A 


V 




15 


34 


50320 


17777 


I 


N 


G 


A 


77 


77 




16 

























17 

























20 

























21 

























22 


43 
CA 


22777 
SI23 


77777 


) 


• 


77 


77 


77 


77 





632 



IA SK 

40 SKI 41 Warning *55 
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Explanation of Indicators, Counters, Temporaries, etc. 



LYO 
1 
2 
3 



5 

6 

7 

10 

11 

12 
13 



14 
15 

16 
17 
20 
21 
22 
23 
24 
25 
26 
27 
30 
31 
32 
33 
34 
35 
36 
37 
40 
41 
42 
43 
44 
45 
46 
47 

50 



Index counter (C ) -(# subscripts) 
Avail, add. in assem. blk. OV & "v") 



Avail, add. in hdg. list. 
Temp, or add. for 1st col 
list - 1 
Indicator 1st var. 



hdg. in hdg. 



00 



fl. pt. ind. 
■fixjjt. ind. 



char, count 



<c 2 ) 



- (#char. in assem. 



Indicator 2nd var. 

Indicator 3rd var. 

Indicator 4th var. 

Indicator 5th var. 

Index counter 

blk. word) 

Index counter (CL) 

Heading indicator 

" st bit = 1 

2nd bit = 1 

Col. hdg, count 

Char, count (v) or string-out count ("u" 

& M v") 

Current variable XS3 symbol 






col. hdg. present] 
title present / 



Assembly Block (25q) 



Parenthesis level 

Count of subscripts processed 

Subscript parenthesis level 

Function parent, level (subs. var. 

within subs. ) 

Function symbol or subs, var. within 

subscript sym. 
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PRINT STRING-OUT 

Print string-out uses three lines of GN (Get Next Character Routine) with 
the following understanding concerning their function. GN2 holds the buffer 
input VK address in u and v of the line from which the last character has been 
obtained. GN3 holds the shift that has been needed to extract the last 
character. It will vary from 6 to 44 fi . GN6 holds the number of the blockette 
from which the last character has been obtained. This number varies from to 
5 for the 6 blockettes of the block of input data. 

When the Print Routine has been entered from CT f Control Routine, the di- 
vider following PRINT is the last character. It should be a space, but what- 
ever it is, it is not included in the group of XS3 codes stored in the output 
for later conversion and printing. 

The current line containing the last character is replaced by a line in 
which 77* s replace all characters already obtained from it. GN3 is used to 
make up the masking QS instruction to secure this replacement. 

The current blockette is examined from the last line backward to find the 
last line in the blockette which is not a line of spaces. From the address of 
this line is subtracted the address of the current line to get the number of 
lines of print data to be transferred to the buffer region output, VN. A 
search for A . is made of the last two lines in the blockette that are not 
lines of spaces. If a A . is found, the Print String-out is terminated. If 
it is not found, the first line of the next blockette is examined. If this is 
a line of spaces, all lines from the second on to the last line of the block- 
ette which is not a line of spaces are transferred to the- output. IF this next 
blockette first. line is not a line of spaces, it is assumed to be a line num- 
ber, and this causes a termination of the Print String-out. 

Continuing in this manner, each blockette is successively examined until a 
A .is found as indicated, or until a line number is found in the following 
blockette. However, if or when print data in 6 blockettes has been transferred 
to output, the routine is automatically terminated. 

When the routine is terminated, GN2 is set to the address of the first line 
of the blockette following the last one from which data has been transferred. 
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GN6 is given the proper number of this blockette. The exit to the Control Rou- 
tine eventually puts future analysis in the Get Next Sentence Routine. This 
routine checks GN2 against a set of addresses of blockette first lines and if 
an equality is found, gets the next sentence from the blockette in which the 
address in GN2 is found. Otherwise, if no equality is found, the Get Next Sen- 
tence Routine gets the next sentence from the following blockette. Following 
a print instruction, of course, such an equality is always found. 

When blockette 5, the last of 6 in the block, is one of the group examined, 
a new block of data is read in by the routine and GN2 and GN6 reset as needed. 

When a print instruction is set on the Unityper, a line number goes in the 
first 6 places on the first Unityper line. The tab key should be set and used 
for all runover lines so that a hanging indention of 6 spaces starts each run- 
over line. Failure to do so will cause a premature termination of the Print 
String-out and an error print-out originating from a string-out subroutine. 

Preferably words should be set right out to the end of any one Unityper 
line without any excess spacing. No hyphens should be used to break words at 
the end. If all of a word does not go in one line, as many letters as possible 
should be put on the top line and the remaining letters should start on the 7th 
position following the 6 spaces in the runover line. 

However, the routine does not require such close typing right out to the 
end preceding a runover. Much of the excess spacing that might be put in by 
ragged indentions on the right is eliminated by the routine. As much as 5 
spaces may be left to occur in the print-out by the present system of assem- 
bling data from blockettes. If excess spacing is left starting from the 7th 
position on, or if excess spacing is left between words in a line, such excess 
will be fully duplicated in the final print-out. 

A .'s, as explained, when occurring in the last two non-space-f iller words 
in a Unityper line or blockette, have the same effect of ending a sentence as 
in the rest of UNICODE. However, their use elsewhere in the print-out data 
does not have this effect because this data is not examined symbol by symbol. 
The blanket rule of eliminating A.*s, except at the end of a sentence, prevents 
possible confusion concerning their use, ..Likewise* they may be eliminated from 
the end of a Print instruction since a following line number in the next block- 
ette serves the same purpose of termination. However, their inclusion at the 
end speeds up the program. 
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Flow Chart for PRINT String-Out Routine Page 1 of 2 




Replace with 77's all 
characters in current 
line except those fol- 
lowing PRINT and the 
divider following it. 



*©* 



Find last word in 
current blockette 
that is not a 
line of spaces. 



Count of no. 

blockettes 

examined 



Compute number 
of words in block- 
ette to be trans- 
ferred to output 



I 



Transfer signifi- 
cant words of 
blockette to out- 
put 




Have 6 blockettes" 
been examined? 




Yes 



'Is this the las 
blockette in 
buffer region? 

Yes 



Read in new 
block of data 



Setup indicators 
for string-out 
control 



Oh 



Setup for examin- 
ing next block- 
ette 




Is this the 
last blockette 
in buffer 



No 



Is A. in last 



*{2 significant lines] 
of blockette? 



Yes 




Yes 



Set up indicators 
for string-out 
control 



Setup indicators 
for string-out 
control 



& 



Up count of words 
in output 



-0 



Write block of 
string-out on 
tape 




Is 1st line of 
blockette a line 
of spaces? 



Yes 



N£ 



Is A . in last 
significant lines] 
of blockette? 



No 




Read in new 
block of data 




No 



x-v Up count of 
\^J~~ > words in out- 
^-^ put 



Is 1st line of 

block a line of 

spaces? 



Yes 



Setup indicators 
for string-out 
control 



No 



<D 



"Exit 




-© 



Setup for 
examining next 
blockette 
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Flow Chart for PRINT String-Out Routine-Cont. Page 2 of 2 

Flow Chart for Subroutine that looks for A . in Two Lines 




Set up to examine 
last significant 
line 



Is there a A . 
in line? 




GO 

sO 



No 



Is there a * in" 
(leftmost position 
von last line? 



(> 



Set upto examine 
next to last 
significant line 



Yes 




Yes / Is there a A to 
__J rightmost position 

V on next to last 

V line? 



No 



Is there a A /\ No 
in line? / 





PRINT STRING-OUT REGIONS 



RE VN3507 
RE WT3207 
RE VK3317 
RE GT21 
RE GN1324 
RE CT714 



>. String-out subroutine 
regions used. 



RE PS4400 
RE TZ4445 
RE HT4477 
RE NR4527 
RE VR4551 
RE BB4562 
RE ZP4605 
RE WP4631 
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Exit 

Current address to v of PS7 

Shift — > A 
6 

Getting proper mask into Q 

Replacing current line with 77 s and any 

characters other than divider to be 

printed 

Clearing counter of blockettes used 

Number of lines accumulated (4) to 

line accumulative counter 

Blockette count to A 

Getting address of address of last line 

of current blockette to u of PS15 

Getting address of last line of current 

blockette to u of PS17 

Contents of last line of current 

blockette to A 

Is it a line of spaces? 

Reducing u of PS17 by one 

Address of last significant line in a 
blockette to WP1. 



Current address to v of WP2 and v of A 



transferred to WP2 

Setting up u of PS43 so that right 

number of lines will be transferred to 

output region 

Setting up u of PS44 so transfer to VN 

can be started 

Getting right address in VN to which 

transfer of lines is to be made 

Transfer of excess-three-coded lines of 

print data to output region 



Number of lines accumulated plus number 
of lines transferred from last block- 
ette gives total accumulated in WP6 to 
iHate«r Total number of lines in output 



to first line of output* 
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MJ 
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line addicess of 










next blockette < 


21 


TD 


A 


TZ23 1 
TZ24 J 


to be examined 


22 


TD 


A 




23 


SP 


30000 


17 




24 


AT 


30000 


GN2 
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MJ 
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Getting output written on tape 

Exit 

Getting new block read in and getting 

GN6 reset to zero 

Is 1st line of new block a line of 

spaces? If not, it is assumed to be a 

line number and print is terminated 

Putting VK VK into GN2 

Setting up GN to proper 1st line ad- 
dress of next blockette 
Is 1st line of blockette a line of 
spaces? If not, it is assumed to be 
a line number and print is terminated 



Getting address of address of 1st 
line of current blockette to A u 
Setting up u of next 2 instructions to 
this address of address of 1st line. 
Address of 1st line to A u 
Address of 1st line to GN2 both in u 
and v 

Setting up GN2 to proper 3d line ad- 
dress of blockette to be examined 
Bringing up accumulative addition to 
date of number of lines in output 



14 RJ TZ25 TZ20 



Counts no. blockettes used 
Have 6 blockettes been used? 
Is this the last blockette in the 
block? 

Adding one to ordinal number of 
blockette to be checked 
TZ12 to v of NR1 

Check to see if A . is in last block- 
ette in last 2 significant lines. 
If not, return to TZ12. 
Setting up GN2 to proper 1st line 
address of next blockette 

Is the current blockette No. 5 and 
hence the last one in block? 
Increasing blockette number by one as 
we go on to next 

Setting up GN2 to address of 1st line 
of blockette next to be examined by 
String-out Control 
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Getting new 
block in. 



15 MJ 

16 RJ 

17 MJ 



21 RA 

22 RJ 

23 TP 
^24 MJ 

25 TV 

26 RJ 



27 MJ 
CA 



TZ 

HT24 HT20 

TZ7 

BB17 GT3 



13 

GT2 

ZP6 



BB6 

NR 





HT30 



HT16 



Getting a new block of data in 

Reading in another block of data 
to VK 

Keeping up count of number of blocks 
read in by string-out 



TZ4 to v of NRl 

Check for A . in last 2 significant 

lines in blockette. (Goes to TZ4 if 

no A . is found) 

Returns here if A . has been found 



IA 

MJ 

1 MJ 

2 SP 

3 TD 

4 RJ 

5 TD 

6 TP 

7 QT 

10 EJ 

11 MJ 

12 TD 

13 RS 

14 TP 

15 QT 

16 EJ 

17 RS 

20 RJ 

21 MJ 
CA 



NR 

30000 

30000 

WP1 17 

A VR5 

VR10 VR 



VR5 

ZP5 

30000 

ZP7 



VR5 

NR15 

ZP16 

30000 

ZPl 

VR5 



) 




NR22 




Exit if a A . is found 

Exit if no A . is found 

Address of last significant line of 

blockette is sent to u of VR5 

Check for A . in last significant 

line 



Check for 
last line 



in leftmost position on 



Check for A in rightmost position 
on next to last significant line 



Check for A . in next to last 
significant line 



Loop to 
locate A . 




VR 
ZP14 

ZP10 

ZPH 

WPS 

WP4 

30000 

WP3 

WP 



VR11 



WP Index 4 to WP 

WP4 Mask to WP4 

WP3 A . to WP3 

6 A . shifted 6 places 

6 7777 shifted 6 places 

A Portion of line is masked out 

NR Is it equal to A . in shifted 

VR3 position? 

30000 
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IA 


BB 













VK 1 


1 








VK24 


2 








VK50 


3 








VK74 


4 








VK120 


5 








VK144J 


6 








TZ4 


7 








VK23 " 


10 








VK47 


11 








VK73 


12 








VK117 


13 








VK143 


14 








VK167J 


15 








BB7 



16 



20 

21 

22 
CA 







BB23 



ZP15 



17 50 00105 VK 



VN 
BB 

TZ12 



Address of beginning lines of 
blockettes in input 



Addresses of last lines of blockettes 
in input 



Address of address of last line of 

1st blockette 

Used to help to get proper mask for 

changing 1st line of blockette that 

is to be printed 

Parameter to use GT in reading in 

another block 

Address of 1st line of output 

Address of address of 1st line of 1st 

blockette 



IA 



1 

2 01 

3 

4 

5 77 

6 

7 22 

10 77 

11 22 

12 

13 

14 

15 

16 

17 

20 

21 

22 

23 77 
CA 



ZP 

6 

1 

01010 10101 





77777\ 

J 





77 

01 



30000 





1 





7 



N 



5 

4 
1 

77 
7777 

77777 
777 77777 
77777 77777 
77777 77777J 
ZP24 



Line of spaces 



Masks 



Period 
Mask 
A 



Index 



Masks 
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Temporary Region - WP 

Index for search for A . 

1 Holds address of last significant line in blockette 

2 Number of lines transferred per blockette 

3 Holds A . shifted for comparison 

4 Holds mask shifted 

5 Counter for number of blockettes examined 

6 Number of output lines - accumulative 
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IF STRING-OUT 

There are two separate analyses in this routine -one of the first clause 
started by IF subroutine and the second of one or two succeeding clauses start- 
ed in IU subroutine. Each of these control routines has in turn several sub- 
routines which handle different facets of the string-out. 

Examples of typical IF sentences are shown below: 

24. If X < Y jump to sentence 7, if X > Y jump to sentence 74, 

if X = Y jump to sentence 32.5 A . 

36. If X > = Y jump to sentence 65, if X < Y jump to sentence 44 A. 

13.1 If X NOT = Y jump to sentence 2, if X = Y jump to sentence 36 A . 
12. If X > Y jump to sentence 6, if X < = Y jump to sentence 52 A. 
11. If X = Y jump to sentence 41, if X NOT = Y jump to sentence 31 A . 
40.4 If X < Y jump to sentence 30, if X = Y jump to sentence 4 A. 

76. If X = Y jump to sentence 50 A. 
72.3 If X < = Y jump to sentence 42 A. 

21.2 If X (i.j.k.l) > Y(i,j) jump to sentence 3, if X(i,j,k,l) < 
=Y (i,j) jump to sentence 5.2 

Only one set of variables or constants is permitted in any one IF sentence. 
Each of the first five examples above exhausts all the possible relations 
between X and Y. No duplication of relations is permitted in separate clauses. 

Throughout this write-up the set of variables or constants will be referred 
to as X and Y, X being the left-hand value and Y the value on the right of the 
relation symbol. In actual use, of course, X and Y may assume any and all of 
the combinations of letters and figures that constitute variables and constants. 
No distinction is made between X and Y. Restrictions on any one apply equally 
to the other. 

X and Y may be numbers in scientific notation form. The latter ideally 
is a number in decimal form between 1 and 10 times a power of 10. Actually 
any number up to 12 decimal digits is permitted to be the left-hand member of 
a scientific notation number. Other variations taken care of by the program 
are revealed in the examples given below: 
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1.234 e 34 
3.4567235641 * 10 20 
6.8924 * 10 POW 29 
9.67 * 10 POW 18 
8.3276 e -23 
-5.298765 * 10 33 

2.3678987654 * 10 -16 

-22 
4.7 * 10 

3.56 * 10 - 34 

-2.6784 e "39 

-2.6784 e -39 

^9 
-2.6784 e - 

3.3786 * 10"23 

The asterisk, used as a multiplication sign in UNICODE, is the only binary 

operator permitted in the IF sentence, and it is only allowed in scientific 

notation. Note that the superior negative sign may be used in front of the 

power of 10 instead of the regular negative sign, but the superior sign may not 

be used in front of the left-hand member of a scientific notation number. 

Following an asterisk 10 must appear. The next number is assumed to be the 

power of 10 whether superior or lower-case. Following e (exponent) the next 

number occurring is assumed to be the power of 10. 

Too high a value of exponent may give a floating-point number which is too 
large to represent. Ordinarily such a number would cause a machine fault and 
stop. A subroutine IQ is used in this connection to locate such discrepancies, 
avoid the machine-faulting stop, and give an error print-out. See separate 
write-up on this subroutine. 

No expressions are allowed in the IF sentence. No plus signs are permitted. 
The absence of a negative sign indicates positive. Thus, some examples of what 
X and Y may not be are: a + b, a - b, a/b, Z+a*b, a,b,a 

If such evaluations are to be compared, they must be computed separately 
by other instructions first and then referred to in the IF sentence by the 
simple variable to which they have been equated. 

In the following chart are given the relation symbols permitted by the 
IF routine. NOT, occurring in the second position of a symbol set, is not 
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acceptable. Thus, NOT NOT is not acceptable, but other double-up relation 
symbols are interpreted as single symbols. For example, < < is taken as mean* 
ing <,Tf NOT occurs alone as a single relation, it is accepted without error 
reference with the print-out: (NOT) interpreted to mean (NOT EQUAL) . 



Preferred 
Form 


Acceptable Variations 


Code Figures 

Assigned 
to Relations 


< 


< < 








2 


- 


= = 








3 


> 


> > 








4 


< = 


= < 




NOT > 




5 


NOT = 


<> 




>< 


NOT 


6 


> = 


= > 




NOT < 




7 



The code figures assigned to these relations are used by the routine to 
check on non-duplication of relations and to facilitate the reversal of a 
relation symbol when needed. 6 - ^2,3, 4| = {4,3,2} and 12 - {5,6,7} ={7,6,5}. 
This enables < to be changed to > and < to > , and vice versa. = is never 
changed to NOT =, and vice versa. A total of three single-relation code 
figures is always 9 when all possible relations of X and Y have been postulated 
and there is no duplication. Similarly, the total of a double-relation and a 
single-relation, non-duplicating symbol is 9. 

The X and Y initially examined in the first clause form the set that is 
stored for later comparison in the running program. The sets of X and Y that 
appear in the second and third clauses are compared to the first set as a 
check on the validity oi" the sentence. 

Ideally any set of X and Y should be repeated with the same order and with 
the same set of signs in the second and third clauses as it had in the first. 
If care is taken to do this, the routine operation is speeded up. However, 
failure to do this does not necessarily invalidate the sentence. If it can be 
done without changing the meaning, the program will reverse the relation symbol 
to correct altered order and signs. See section describing technical operation 
of JF for details on the theory back of relation-symbol reversal. An example 
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of how it works is the following: Let X < -Y be contained in the first clause 
and -Y < X in the second clause. The routine interprets the latter as X > -Y, 
and stores the > symbol in output. 

If the second or third variable set cannot be equated to the initial set 
by a consistent sign change, an error print-out will occur. All that is 
stored from the second and third clauses of an IF sentence for use in the 
running program are the line numbers to which jumps are to be made and the 
relation code figure for the second test, if any. 

No more than two tests are needed in a running program for an IF sentence. 
A third IF situation following two tests is always an unconditional jump. 
Similarly, if the first test is for a double relation, its failure makes a 
second IF hypothesis true, necessitating an unconditional jump, and vice versa. 
In the last situation VN6 and VN7 (the second test and line number storage) 
are left empty, VNIO gets the line number of the unconditional jump, and VN4 
and VN5 take the first test code and line number, respectively. See attached 
sheet explaining output. 

To return to additional specifications in writing X and Y, a superior minus 
sign is not permitted to indicate negative value of X or Y. If an absolute 
sign has already appeared, a negative sign following it will be ignored since 
the absolute sign negates its meaning. An absolute sign causes the indicator 
for such to be put into the proper line, regardless of the previous appearance 
of a negative sign. 

An absolute sign appearing in front of a variable or constant applies only 
to that variable or constant. The absence of a closing absolute sign after 
the value is not noted. However, the appearance of a closing absolute sign 
causes a check to see if an open absolute sign has been recorded. If not, 
there is an error print-out. 

Only a single value is stored for a function in UNICODE. The use of a 
variable function in an IF sentence presupposes its computation or read-in via 
a previous instruction. Hence arguments following a function, whether of 
constants or variables, are ignored both in analysis of the first clause and 
in analysis of the second and third clauses. Also differences between these 
superfluous arguments between clauses are not noted. 
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If either X or Y is a fixed-point variable, the other must be a fixed- 
point constant or fixed-point variable. If either X or Y is a floating-point 
variable, the other must be a floating-point number or variable. Based upon 
such considerations, the routine translates numbers to octal or floating point, 
gives them call words, and stores them in list CL. 

If both X and Y are constants, they are sent to the subroutine IT, where 
an immediate comparison is made of them. If the test shows the relation true, 
the sentence is changed to a jump sentence and the string-out output modified 
accordingly. G Q (see print-out schedule) alerts the operator to this decision 
without error reference. 

If the test fails, a jump is made to the beginning of the IF routine and 
the remaining sentence clauses (if any) are processed as a separate IF sentence. 
This is the reason recognition of the IF symbol is built into the first part 
of IF string-out. 

If specific sets of arrays of values of unknowns are to be compared, sub- 
scripted variables should be used. Up to four subscripts may be used for each 
variable. Subscripts in an IF sentence may not be expressions. However, a 
subscripted variable used for X or Y in the second or third clauses must agree 
in every particular with that used in the first clause. As an example, sup- 
pose **X(i,j,k) <Y(i,j,k,l)" is in the first clause; X(i,j,k) and Y(i,j,k,l) 
must also appear in the second and third clauses. 

All print-outs include as a first element, Sentence (IF), where the 

dash indicates a line number which will be typed out. Some print-outs merely 
give information on how the program has handled an unusual situation. These 
do not cause a reference to the error routine or termination of the IF 
string-out. Other print-outs are accompanied by an error reference but not 
termination. The more serious type includes both error-referencing and IF 
string-out termination. Some without built-in termination are used most of 
the time with external termination. In the attached chart of print-outs, 
subscripted G's are assigned for simplification of following technical 
description of the segments of the IF string-out. 
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Error Reference 


Trf-li^»-i+-l -p-l />•"»+ t AW 

■LucatJ-ii^a i/i On 


1. X Illl, B, V'U L. 


Built-in If 
Termination 




G i 


Sentence (IF) 




y 


G 2 


Inconsistent sign change 


y 




S 


Symbol rejected 






y 


"4 


Disallowable character in 
Ex Don en t 






y 


G 5 


Incorrectly written * 






y 


G 6 


Scientific notation in- 
correctly written 


y 


y 


G 7 


Open absolute sign 
missing 






G 8 


TO should follow jump 






G 9 


Becomes Unconditional 
Jump to Sentence 




y 


G 10 


Space period occurs 
before sufficient data 
given 




y 


G ll 


Comparison symbols 
ambiguous 


y 


/ 


G 12 


Set of variables differs 


/ 




G 13 


(NOT) interpreted as 
(not equal) 




y 


G 14 


Fixed and floating point 
values are not comparable 


y 



*The symbol being examined when this print-out occurs is given here. 
It indicates how far in the sentence analysis has gone before external 
termination, 
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IF Control 

IF subroutine is the control of analysis of the first clause of the IF 
sentence. It clears VN output lines (except for first four) and clears tem- 
porary storage lines VN71-121. See attached charts for explanation of data 
stored in these addresses. VN71-121 is used first to accumulate data on X. 
Then this data is transferred to VN40-70, leaving VN71-121 for use in accumu- 
lating data on Y. 

The divider routine II is set up so that it can be entered only once 
without error during the first-clause analysis. The first two symbol output 
lines are sent to temporary storage. A pseudo-op indicator is put in VN33, if 
needed. 

Recognition of , ; IF ( causes a return to the SY referencing instruction 
that gets the next symbol. A . recognition sends analysis to the IK termi- 
nation routine. If the symbol is a constant, control goes to IE. IG takes 
over for a fixed-point variable and IH assumes control for all other variables 

A character not identified causes print-out G3 and then a return to get 
next symbol. 

IK— A . Termination 

Zero value is checked for successively in VN5, VN4, VN14, and VN24. If 
found in any, print-out G^q ensues with termination. If not found, WT, the 
tape-write routine, is referenced to get completed data written on tape before 
return to CT, the String-out Control Routine. 

From the analyses of the second or third clauses, an entry is made to 
IK14. The absence of zero in VN10 sends the routine to the loop mentioned 
above. If a zero is found in VN10, a check is made if VN34 equals 00 00003 
00000. If yes, Gjq occurs with termination. If no, VN7 and VN6 are succes- 
sively examined for zero. If found, G^o occurs with termination. If not 
found, a jump is made to the loop of zero checking described above. 

IE Constant Analysis 

Reference is made to RB for checking validity of a constant. A constant 
indicator is stored in VN31 for X and VN32 for Y. 
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If the number of characters is > 6, the number is converted to floating 
point via proper subroutine. Also, a floating-point constant indicator is 
filled with 40 0. This is necessary because a floating-point number may 
be zero and its presence as such in regular floating-point location could not 
be recognized. 

Either a superior or regular dash is permitted to indicate a negative sign 

following e or * in scientific notation. Failure of a figure to follow this 

sign causes G . 10 not following * causes G, . 10 may not be a superior figure. 

After 10, there may be POW, but after this either a negative sign or figure 

must be next to avoid G, . 

6 

An exponent is checked by RD subroutine. If superscript, it is sent to 

IN, the Superior to Lower-Case Translator, where G. may occur. See separate 

write-up on this subroutine. 

The exponent is then converted to octal by use of RS subroutine and trans- 
ferred to proper input line IQ2 either as a positive or negative number. After 
checking and conversion to floating point in IQ (see separate write-up), the 
number is changed to negative, if desired. 

Failure to find an open absolute sign when a closed one has shown up 
causes G-. 

A relation symbol <,>,=, or NOT causes a jump to II subroutine. JUMP 

symbol sends control to IJ subroutine. Characters ( ) , ; initiate a return 

to beginning of loop to get next symbol. An unrecognized symbol causes G 

o 

without termination. This loop, starting at IE115, is used frequently as an 
exit by other subroutines. 

IG — Fixed-Point Variable Analysis 

After a reference to RH to check for validity of variable, the call word 
is obtained from TS if it is there, or from TA when it is in the Combination 
List. If the call word is not in the latter or the pseudo-op list, it is 
secured by adding 64000 to a number put in A by RJ tk tkl. It is then 
added to the combination list by using TF and TE. Explanation of uses of 
these routines is found irr separate write-ups i on each. 



653 



IH and IL — Floating-Point Variable Analysis 

On entry to IH, two separate courses are taken, depending on whether the 
sentence is within a pseudo operation or not. 

If a subscripted variable is identified, the modulus (the number of words 
stored for the variable) is assigned a call word, and this call word put in 
the u position of an output line. In the same word in the v position is put 
the number of subscripts. 

The format of the data on a subscripted variable obtained from the combi- 
nation list is as follows: 

TA4 (call word) 

TA5 (modulus) (number of subscripts) 

TA6 (2d subscript (1st subscript multiplier) 
multiplier) 

TA7 (3d subscript multiplier) 

The proper multipliers for the subscripts of variables not in the pseudo-op 
list are obtained from region TA by means of a small subroutine entered via 2 
one-shot RJ switches. The order of entry (only three for any set of sub- 
scripts) determines wliich multiplier is secured- The Constant call word assigned 
to it is then transferred to the u position of the output line. The v position 
of this line is later filled with the call word of the fixed-point variable or 
constant involved. 

The call word of the pseudo-op subscripted variable is in the form 
76ZRR where Z is the number of subscripts and RR the current pseudo-op variable 
number. Thus, if 3 single-valued variables have been assigned positions in 
the pseudo-op list, (0,1,2), RR will equal 3. The routine extracts the Z and 
sets up an index for processing the subscripts. To the extracted RR is added 
63000. This number becomes the call word of the subscripted variable. The 
number of subscripts is added to 630RR to give a call word assigned to the 
modulus. The call words of the subscript multipliers start with (630RR + 1). 
As subscripts are encountered, they are supposed to have call words starting 
with (630RR + Z + 1). Below is given an example of pseudo-op input region 
for the case of three subscripts. 
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Assigned Call word 

630RR Subscripted variable 

630RR +1 I„ - 1st multiplier 

m 

630RR +2 J M - 2d multiplier 

630RR + 3 Modulus 

630RR + 4 Subscript 1 

630RR + 5 Subscript 2 

630RR + 6 Subscript 3 

A subscripted variable in a pseudo operation may be a regular floating- 
point variable or pseudo-op variable. Whichever it is, it may have fixed- 
point variable subscripts located either in the pseudo-op list or combination 
list. If these subscripts are found in neither list, they are assigned call 
words in the 64000 range and put in the combination list. Note that if a 
subscript is a constant, it will not be in the pseudo-op list. 

If a subscript of a subscripted variable fails to be either a constant or 
a fixed-point variable, G,_ occurs with termination. 

When the call word of a nonsubscripted variable has been stored, it is 
examined to see if it is that of a function. If so, analysis goes to an IL 
exit subroutine in which any arguments that might be inadvertently put follow- 
ing the function are ignored. Exits and print-outs are the same as those in 
the IE exit subroutine. If the call word is not that of a function, the exit 
from IL is made via the IE exit subroutine. 

II — Relation Symbol Analysis 

No more than one entry can be made to this routine during an IF in- 
struction. A second entry causes G_ with termination. Failure to have a 
second relation symbol in the clause follow immediately after the first will 
create this error. A "NOT" occurring in the second position causes the same 
error termination. 

The data gathered on X is transferred by this coding from VN71-121 to 
VN40-70 and the first region is cleared for succeeding data to be gathered 
on Y. 
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IJ — Jump Subroutine 

Failure of the next symbol to be "T0 M causes Gg without error reference. 
A loop of symbol recognition similar to that used in the separate jump in- 
struction string-out is included at the start. See the write-up on this 
routine. Failure to meet the specifications of the loop causes G,- with 
termination, Getting the assumed line number into proper form terminates 
this first loop and may cause error print-outs explained in the line-number- 
routine write-up. Regardless of what happens in the line-number routine, 
its output is transferred to VN5 and the string-out continued. The referenced 
number is sent via IX routine to reference list 32 where it is later given 
a call word by other routines. 

Variables or constants X and Y are compared in the second part of this 
subroutine. Combinations of floating-point and fixed-point values cause G 14 . 

Fixed-point numbers or those assumed to be such are not translated from 
excess-three decimal code until the analysis of this subroutine. Then they 
may be translated either to octal or floating point, depending upon the nature 
of the corresponding variable or constant. 

VN11 to VN30 output lines are now filled with the data that has been 
gathered in the temporary storage regions. 

The closing loop checks for parentheses, comma, semicolon, space period, 
and IF. G_ ensues with termination if none occur. Recognition of IF sends 
the analysis to IU, the beginning control routine for analysis of the second 
clause. 

IU — Second and Third Clause Control 

The absolute sign indicators for X and Y are transferred to the temporary 
storage lines directly above the excess-three representation of X and Y, 
respectively. Thus 11 identifying lines on each of X and Y are in one location 
for future reference. 

Exits from this control routine are IY ( IY33, JB, and IK14, depending on 
whether X or Y is a constant, fixed-point variable, or floating-point variable, 
or whether A . has been encountered. Temporary storage region VN150-164 is 
cleared for gathering of data on X or Y. Go occurs without error reference for 
an unrecognized symbol. 
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I Y— Number Analysis 

This routine (the counterpart to IE) has similar checks on scientific 
notation. G, or G « follow a misuse of the latter. Excess-three storage of 
data on X and Y is continued in it. The exit loop is in JB6-JB17 and is 
shared with variable subroutines. G„ occurs if indicated following use of 
this loop. 

JB — Floating-Point Variables 

If a floating-point-variable symbol is not found in either the combination 
list or the pseudo-op list, it cannot be the same as any of the symbols en- 
countered in the first clause. Hence G. n follows. 

12. 

Excess-three representations of subscripts are stored in VN156-161. 

The exit loop sends analysis to JC for a relation symbol, JF for a jump 
symbol, and IK14 for A. Additional errors and print-outs are similar to 
those of IH and IL. 

JC — Relation Symbol Subroutine 

Count and storage of excess-three relation symbols is the function of this 
routine. Also data on X is transferred to VN130-144, and region VN150-164 
is cleared for use of Y data accumulation. If two relation symbols have been 
found, control is transferred to IU5 to get next symbol. Otherwise, the jump 
is made to IU6 since an unidentified symbol has still to be examined. G- 
followed by termination occurs if routine is referenced twice in a single 
clause analysis or if second symbol is "NOT**. 

J I — Relation-Symbol Check 

Referenced from JF, JI examines the count of relation symbols, checks 
their consistency with previous counts, and assigns a code figure to the symbol 
either in VN6 or temporary location JI123 if all relations have been used in 
a sentence. An accumulative excess number (over 3) of relation symbols causes 

G IV 
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JF — Second Jump Subroutine 

Let us call the X symbol the second or third time through X„ and the Y 
symbol Y This routine compares excess-three data gathered on X„ in VN131-141 
with similar data gathered on X the first time through. If an inequality is 
found, Y„ data in VN151-161 is compared to X data. Similarly, as the situation 
requires, Y data is compared with Y~ data and later, if needed, with X« data. 
Next signs are compared. 

Since the only values obtained from the second and third clauses other than 
the line numbers are the relation symbols, it was convenient in a few lines to 
use a theory of symbol reversal to correct what might ordinarily have been 
errors in position and sign of variables. X(s) means sign of X. Following 
are the rules that govern such reversal. 



Variables 



X = X, 
Y = Y, 



Signs 

rx(s) = X 2 (s) 

Y(s) = Y 2 (s) 

X(s) f X 2 (s) 

Y(s) £ Y 2 (s) 



Symbol 
Reversal 

No 



Yes 



Y = X. 



fX(s) = Y 2 (s) 

Y(s) = X 2 (s) 

X(s) t Y 2 (s) 

vjr(s) t x 2 (s) 



Yes 



No 



All sign combinations other than the above cause Gp. Failures to find 
equality of \X f YJ with |Xp,YpJ , exclusive of sign, in any order causes G l2< 

After symbol reversal, if needed, the relation codes are compared for 
uniqueness and internal consistency. A loop to get the line number operates 
similarly to the one in IJ. 

If VN10 has been filled with a line number, the next loop is the final 
exit. If only VN7 has a line number, a loop is entered which, on recognition 
of an IF symbol, will send analysis back to IU2 for the third and final 
analysis of an IF clause. The final exit loop permits only a closed paren- 
thesis and A. The other loop permits ( ) , ; A. IF. Failure of either to 
recognize a symbol causes G_ with termination. 
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Prior to analysis of the third clause, this routine puts 00 00003 00000 
in VN34. This indicator is later used to check if sufficient data is given 
in the third clause to complete the sentence string-out. 

Output VN 

Number of lines of output in v 



Name of instruction 

v = call word of line number. 

Holds code figure €12,3,4, 5,6, l\ to indicate 
relation test 

Line number of sentence to be jumped to on 
first test. 

Holds code figure in v for second relation 
test 

Holds line number of sentence to be jumped 
to on second test 

Holds line number of sentence to be jumped 
to unconditionally 

u = Call word of modulus, v = number of sub- 
scripts of X 

Negative value desired if 40 0, other- 
wise cleared 

Absolute value desired if 40 0, other- 
wise clear 

Call word of X 

u = call word of I multiplier, v = call word 

of I 
u = call word of J multiplier, v = call word 

of J 
u = call word of K multiplier, v = call word 

of K 
v = call word of L 

u = call word of modulus, v = number of sub- 
scripts of Y 
Negative value indicator 

Absolute value indicator 

Call word of Y 












34 


1 


Line 


Number 




2 


IF77777777 




3 








v 


4 








5 








6 








7 








10 








11 





u 


V 


12 








13 








14 








V 


15 





u 


V 


16 





u 


V 


17 





u 


V 


20 








V 


21 





u 


V 


22 








23 








24 








V 


25 





u 


V 


26 





u 


V 


27 





u 


V 


30 








V 


31 








32 








33 









^ 



u = call word of subscript multipliers 
v = call word of subscripts of Y 



If X is a constant, 40 0, otherwise clear 
If Y is a constant, 40 0, otherwise clear 
Pseudo-op indicator, 40 0, otherwise clear 
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'Temporary Storage in VN 



X 


Y 


40 


71 


41 


72 


42 


73 


43 


74 ' 


44 


75 


45 


76 


46 


77 


47 


100 


50 


101 


51 


102 


52 


103 


53 


104 . 


54 


105 


55 


106 


56 


107 


57 


110 


60 


111 



61 



62 



112 



113 



63 


114 


64 


115 


65 


116 


66 


117 


67 


120 


70 


121 


*2 


Y 2 


130 


150 


131 


151 " 


132 


152 


133 


153 . 



Floating-point constant 

Fixed-point constant in excess-three 

Used in making call word of multiplier 

("indicator of fixed-point variable (40 0) 

1 Holds absolute-sign indicator during comparison 

gy2 -j 

I Excess-three representation of variable 
sy 3 J 

Sign of exponent indicator (40 0) 

Exponent of 10 in excess three 

Subscript 1 in excess three 

Subscript 2 in excess three 

Subscript 3 in excess three 

Subscript 4 in excess three 

u = call word of modulus; v = number of subscripts 

Negative sign indicator (40 0) 

Absolute sign indicator (40 0) 

Call word in v 

u = call word of I multiplier; v = call word of I 
subscript 

u = call word of J multiplier; v = call word of J 
subscript 

u = call word of K multiplier; v = call word of K 
subscript 

v = call word of L subscript 

Index for subscript assembly 

Count of relation symbols 

First relation symbol 

Second relation symbol 

Floating-point constant indicator (40 0) 



Negative sign indicator (40 0) 

Absolute sign indicator (40 0) 
2 



Sy . 



Excess-three representation of variable 
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'134 


154" 


135 


155 


136 


156 


137 


157 


140 


160 


.141 


161 . 


142 


162 


143 


163 


144 


164 



Sign of exponent indicator (40 0) 
Exponent of 10 in excess-three 
Subscript 1 in excess-three 
Subscript 2 in excess-three 
Subscript 3 in excess-three 
Subscript 4 in excess-three 
Count of relation symbols 
First relation symbol 
Second relation symbol 



♦Braced portions are those compared during analyses of second and third 
clauses to determine equality of variables. 
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Scientific Notation Checking Routine 

The purpose of this routine is to check the size of a number in scientific 
notation form and then convert it to floating point. If it is too large for 
floating-point representation, the error routine is referenced and the following 

error print-out is given: Sentence ( ) — Absolute Value of Number 

Too Large. If too small, the floating-point representation is set to zero 

and this print-out occurs: Sentence ( ) — Absolute Value of Number 

Too Small — Given Zero Value. In the latter case, the error routine is not 
referenced. 

To use the routine a number to the left of e or * is first converted to 
floating point by use of the "excess-three decimal to floating-point*' routine, 
This floating point number, either positive or negative, is put in input line 
IQ2. The exponent of 10 after conversion to octal by means of the proper 
routine is put in input line IQ3. It also may be either positive or negative. 
Instruction RJ IQ IQ1 then performs the check and, if the absolute value of 
the number is not too large, puts the correct floating-point representation 
into IQ2 as the output. 
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Superior To Lower-Case Translation of Figures 

Input to this routine is one line of superscript figures packed starting 
at the left with 77 fillers at the right. No characters other than superscript 
figures are permitted. Thus periods are not allowed, and only integral figures 
are translated. Both the input and output are in excess-three decimal code. 
The input line, in2, becomes the output line on termination of the referencing 
instruction, RJ in inl. 

If the first character on the left is 77, no translation is performed. 
The input line, in effect, is untouched. 

If a character is not a figure or a 77, the error routine uz is refer- 
enced and there is a print-out: Sentence ( ). Disallowable 

Character in Exponent . In the last blank is given the print-out of the 

character. This print-out occurs for every erroneous character in the line 
prior to the first 77. When a 77 is encountered, no further analysis or 
translation of the line occurs. What has been translated is packed at the left, 
and the balance of the line is retained the same as it was in the original 
input. 
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IF Control Routine 



Entry 




Clearing output and 
temporary storage 
lines 



Number of lines (34) 
to v of first line 
* of output 



Flow Charts for IF String-Out 



Set up 1st line of 
II divider routine 



Pseudo-op indicator 
to last line of out- 
put if within 
pseudo-op 



IK Termination a . Routine 
3) 



/'Has a first test ~N 
( line number been V 
y supplied? / 



Yes/H as a first test 
-*( relation been 
supplied? 



Yes 



Has the call 
word for X 
been given? 



No 






No 





Error reference and 
print-out: Sentence 

(IF) space period 

occurs before suffi- 
cient data given 





r 54 



las an uncond 
number bee 



conditional^ /Is this t 
n given? J-^M third clau 
y \under ana 



-*\2J-*Get next symbo 1 — ^nto)-* 



Set negative sign 
indicator 



G> 




No 



Yes/Tlas the call 
word for Y been 
given? 



Yes 



Write completed 
data on tape 



Symbol 
to A 



Store 1st two symbol 
words in temporary 
storage 



Is symbol 
; IF? 



No 



-K^ 



(Is symbol \ Yes s~\ 
a.? J — <5) 



No 



No 



Yes A Has an absolute 
sign been used? 



> es f Is symbol a A 

I negative sign? J 



g> 



Set absolute sign 
indicator 




No 



Yes /Is symbol an 
absolute sign? 



Yes 





3 



No 



Is 
symbol ( ? 



No 



_ v Yes/"j s S y m bol >i 

(4/*"T a constant? J 




No 



Is symbol a fixed - 
point variable? 



Yes 



Yes 



the 
se 
lysis 

Yes 




i No / ** as a second 

test line number 



been given? 




\Ye 



Has a 2 na tes 
relation indica 
been given? 



atorj No > (T) 




) 



No 



Is symbol a floating 
point variable? 



Yes 



© 



©- 



No 



Warning Print-out: 

Sentence (IF) 

symbol 

rejected 



IE Constant Routines 




Check if constant \ 
is a valid fixed - \ 

J 



point figure 



(Is X being ^J 
examined? )~ 



Put constant indi- 
cator for X in 
output 



Put constant indi- 
cator for Y in 
output 



X. /'is 7 > number "\ N „ _ Convert figure to 

-»Q_J — *i of characters? ^»(J5)->| floating point and 



T st0 



Yes 



/'Are number of 
[decimal points zero? 



Put floating-point 
indicator in stor- 
age 



Get next 
symbol 



':.r y^( 



Is symbol 
* ? 



Yes 



Storing fixed -pt. 
excess-three figure 
in temporary 



Get next 
symbol 



^/U symbol N ^/l; 



s Symbol 
* V 



/"Is symbol a neg-N. 
^J ative or superior [ c ( To V" 
\^ negative sign? j' V>^ 



Get next 
symbol 




Changing flxed-pt. 
number to a floating, 
pt. number, storing 
and setting floating- 
point indicator 



© 



Set exponent 

negative-sign 

indicator 



CH 



Get next 
symbol 



<Is symbol \ Y 
a figure? J-i^» 



Store figure in 
temporary storage 



Is symbol made of\ 
superior figures? 1 I es 



Convert no. to X3 
decimal lower case 
number 



Check if symbol 
is a valid fixed 
point number 



Complementing Subroutine 



Is" negative sign\ No 

indicator set? 1 J^Exit/ 



( 



Convert number 
to octal 



Is sign of exponent 
negative? 



Complement floating- 
point figure 



Changing fixed-point 
figure to f loating-pt., 
storing, and setting 
floating-point indi- 
cator 



Complement floating- 
point figure if 
negative sign indi 
cator is set 



-*% 



KJJH %LT K^r) 



Get next 
symbol 



s~^ ,, /"is symbol \ 
©M°-(^ P0W? J 



C 9 



Complement 
number 




Convert scientific 
notation to a floating' 
point number 



Complement floating-point 
figure if negative sign 
indicator :ls set 




Constant Termination Loop 



©- 



Get next 
symbol 



Is symbol an ^\ No /is symbol "\no f* 3 s y rab °l \ No ^/I s symbol^ No /is symbol^ 
absolute sign? Y A ){j . ? J^\ K> = not? J K JUMP? J *l A.? Y 



No 



Yes 



Yes 



('Has an open ""N ^,^ \}y 

absolute sign been \.^ e s >C\ \) 
used? y ^-S 



No 



Error reference and 
print-out: Sentence 

(IF) open 

absolute sign missing 



-© 



Yes 



Yes 



Yes 



©~ 



Warning Print-Out: 

Sentence 

(IF) symbol 
rejected 



IG Fixed-Point Variable Routine 




Check if symbol> 
is a valid 
variable 



Set fixed-pt. 
variable indicator 
in temporary 



Is sentence 
within pseudo 
op? 



Yes 



Is symb 
pseudo-op 



ol in \ 
list? V 



No 



Yes 



Pseudo-op call 
word to storage 



~"\ f Is symbol X 

- ) No^ \-»lin Combination 1"° > 

J V^ - List ? ' 



Get next call word 
of 64, 65, 66 type 



Yes 



Call word to 
storage 



Adding in 64000 to 
form call word 



Adding symbol and call 
word to Comb. List 



IH and IL Floating-Point Variable Routines 



a* 



(i>y» Set u p s 



Check if valid 
floating-point 
variable 



Is sentence within 
pseudo-op? 



JL 



Set 
ups 



/Combination List 
/ symbol search sub- 
\ routine 




Is subscript index 
zero? 



No 



Call word of multi- 
plier to u of a stor- 
age line 




No 



/ Call word of a 
/ subscript to v of a 
\ storage line 

\ 






Subscript index 



<0 



/Subscript index 

v 



f^@ 




Yes 



Is symbol in pseudo- \ Yes 
op list? 



I 



Wo" 



Set 
ups 



Call word 

to 
storage 



«D 



Combination List 
'symbol search 
subroutine 




Is subscript 
index zero? 



No 



Call word of multi- 
plier to u of a stor- 
age line 



Call word of a 
'subscript to v of a 
storage line 



CD 



©J* 



Yes 




Is symbol a pseudo-op 
subscripted variable? 



No 



Is symbol a 
function? 



Yes 





Call word 


No. of 


of modulus 


sub- 




scripts 


formed and put 




in storage. Index 


set up. 





Call word of sub- 
script to v of a 
storage line 



Get next 
symbol 




Call word of multi- 
plier to u of a stor 
age line for pseudo- 
op 





Subscript 
index 




Is subscript index 
zero? 



<o 



© 





Yes 



Is symbol 
( ) j ;? 



No 



Yes 



NQ/23 



No / Is symbol an 
absolute sign? 






Yes 



No 



Has an open absolute 
sign been used? 

Yes 



Is symbol 
< > = NOT? 



Xs symbol^ No 
JUMP? 



Is symbol space 
period? 



No 



Yes 




Yes 




Yes 




Is symbol an argument 
variable of a function?. 





Is symbol an argument\No 



constant of a function?/ 

y 

Yes 




Warning Print-Out 
Sentence 
(IF) 

symbol 
rejected 



No 



Error reference and 
print-out: Sentence 

(IF) Open 



absolute sign missing 



Combination List Symbol Search Subroutine 




o 
o 



Is symbol in 
Combination List? 



No 



Yes 



Obtain a call word for 
variable and store in 
a temporary location 



Add file on variable 
to Combination List 



-© 



Call word to temporary 
location 



Is symbol a sub- A 
scripted variable? Y 



No 



■W22 





Yes 




^ 


' 




Call word 


No. of 


of mod- 


sub- 


ulus 


scripts 


formed and put 


in 


storage. Index 


set up. 


> 


' 



Exit 




Subroutine to put call word of subscript multiplier (not for a pseudo-op sub variable) to 
u of a storage line 




1-shot \ 
switch j-ump 
to (29) 



1-shot \ 
switch^ jump *~ ^ 
to f3.li 



Extract 3 r d multiplier 
from dimension list 



-^3o)(29)— > 



Extract 1 st multi- 
plier from dimension 
list 



-® 



0- 



Extract 2 nd multi- 
plier from dimension 
list 



-®— 



Obtain and store call 
word for multiplier 
in u of a storage line 



Exit 







3 Subroutines to put call word of a subscript to v of a storage line: 



2 - Checking if fixed-point variable is in pseudo-op list and getting call word, if so, 




/is fixed-pt. variable^ Yei 
*^in pseudo-op list 




Call word to v of a 
temporary 



Exit 




1-Handling subscript if a constant and checking if it is a fixed-point variable 




Get next symbol 



Is symbol \ No/' 15 svmb ol A Yes/ Is s y rabo1 a 
■*• )( » ;? yH a constant? f~ *\ superior 

figure? 



Yes 



s symbol a Ayes /Check if it is 
fixed-point j-K a valid fixed-pt., 
jrariable?__^/ \ variable 





No 




Store in a 

temporary 

location 





N . Check if symbol 
iNO/i s a valid fixe 

point constant 




a- 



Store X3 of constant 
in a temporary 



/ Convert X3 > 
^constant to octal, 



Obtain call word 
for constant 



Store call word 
of subscript in 
v of proper 
location 




Sentence. 



.(IF) Symbol Rejected. 



.(Warning only) 




Entry 



Rejected symbol to 
print-out storage 



Print-Out: Sentence 
(IF) 



Print-Out: 
rejected _ 



symbol 



Exit 




3-Checking if fixed-point variable is in Combination List and, if not, 
adding it in. Call word to location. 




Entrjr 



Is fixed-point vari- 
■Mable in Combination 
List 



No 



Obtain call word 
for it 



Yes 



Call word to v of 
temporary 



Add variable and call 
word to Combination 

List 



Exit 




Call word to 
v of a temp- 
orary 




CO 



ID Print-Out Subroutine Sentence__^_(IF) Inconsistent Sign Change 




75 



Subroutine print-out: 
Sentence , _ ( IF ) 

Reference error 
routine 



Print-Out: In- 
consistent sign 
change 




Sentence 



(IF) Scientific Notation Incorrectly Written 



Print: 
Sentence 



(IF) 



Print: 
Scientific 
notation 



Print: 

Incorrectly 

written 



Reference 

error 

routine 




Sentence. 



.(IF) Space Period Occurs Before Sufficient Data Given 



o 
-i 

£* 




-* 



Print: 

Sentence. 

(IF) 



Print: Space period 
occurs before suffi- 
cient data given 



Reference 

error 

routine 



Exit 




Sentence. 



_(IF) Fixed- and Floating-Point Values Are Not Comparable 



Print: 
sentence 



(IF) 



Reference 
error 
routine 



Print: Fixed- 
and Floating- 
Point values are 
not comparable 




Sentence. 



.(IF) Disallowable Character in Exponent 




Entry 



Add character to 
last line of 
print-out 



Reference error 
routine and print: 
Sentence (IF) 



Print -out: Disallow- 
able character in ex- 
ponent 

Character put back in 
A before exit. 




Sentence. 



.(IF) TO Should Follow JUMP (Warning only) 



o 




Entry 



Print: 
Sentence 

sm 



Print: 

TO should follow 

JUMP 




Sentence. 



.(IF) Set of Variables Differs From Initial Set 



Reference 

error 

routine 



Print: 

Sentence 

(IF) 



Print: Set of 
variables differs 
from initial set 




Sentence 



(IF) Open Absolute Sign Missing 




Entry 



Reference 

error 

routine 



Print: 
Sentence 



.(IF) 



Print: Open 
Absolute Sign 
Missing 



Exit 







Sentence 



.(IF) Comparison Symbols Ambiguous 




Reference 

error 

routine 



Print: 

Sentence 

(IF) 



Print: Comparison 
*| symbols 
ambiguous 




Sentence _ 



(IF) Incorrectly Written .. 




Entry 



Subroutine to reference 
error routine and print: 
Sentence (IF) 



Print-Out: 

Incorrectly 

written 



Print-out of symbol 
which caused sentence 
analysis to break down 




Sentence. (IF) Becomes Unconditional Jump to Sentence 



(Warning only) 



o 


/v 

/Entry\ 










-J 

-4 


Set ups of print- 
out subroutine 




Print: 

Sentence — 

(IF) 









2 n d line number 
to print-out 
storage 



Print: Becomes 
Unconditional 
jump to sentence 



Sentence (IF) (NOT) Interpreted as (NOT EQUAL) 

(Warning only) 





Entry 



Print: 

Sentence 

(IF) 



Print: (NOT) 
Interpreted 
as (NOT EQUAL) 



Exit 




II Divider Routine 



1-shot switch jump to 
^_^ ©X On a second time __ 
n.3Y> thru, will go to error ->(33V> 

VIX nrint-mit fa3l \*ZS 



Error reference and 
print-out: Sentence 

. (IF) 

Incorrectly written 




f 

/'is 1 st relation "N 
(symbol NOT? J 



<8>+ 



Store first relation 
symbol 



Start count of 
relation sy 



1 ° , ^/ Get next \ ^f ls symbol ^No ,V~\ /is symbol ^\ No ^ 

y»bois -* ^ symbol ^ > ^ > =? y ~KJ— \ wot? J — * 



Store 2nd relation 
symbol 



Up count of relation 
symbols 



Transfer group of 
X data to new 
temporary location 



Clear storage for 
reception of Y. data 



JK 



"7* indicator to 
lst-test output line 



"3" indicator to 



f^2\ t lst-test output 
\ZJ* line 



Change count of 
relation symbols 
to 1 



"5" indicator to 
lst-test output line 



KIs 2nd relation^ yNo f Is 2nd relation^ 
ymbolJ>? JF I symbol ■<? J 



<Is l«t relation *N 
symboK? } 



s zi — N. ■ Indicator to , 7 

/Is 2 nd relation Y^ ist. tes t output ^jO, /is 2"d 

V symbol < ? y T \> j ine ~*\fj V symbol 



(Is 1 st relation "\ 
syobol y- ? ) 



relation 
<. ? 



/'is 2"°" relation ^ \ Yes^ 
(symbol > ? J * 



-No 



"5" indicator to 
ist-test output line 



'6" indicator to 
ist-test output 
line 



Change count of 
relation symbols 
to 1 



"2" indicator to la- 
test output line 



(Is 2nd relation *\ Yes 
symbol -> ? V-^* 



■*© 



"6" indicator to 
l st -test output 
line 



c 



s 2 nd relation 
syabol <.? 



/~\ /is 2nd relation \Yes 

\jj I syabol >? J * 



Put "5" indicator 
in l st -test output 
line 



—0 



Put "7" indicator 
in ist-test output 
line 



©*■ 



/ ^^lei / 'is count of ^ 

V^'* - (relation symbols 2? ) 



S~ ^^ | *2" indicator to lyes /is symbol "\ 
(36/*~ ist-test output line* — s — I <L ? J 

"4" indicator to v „_ 

0^ 



"4" indicator to 
ist-test output line 



(Is symbol 'N 



©^ 



"3" indicator to 
ist-test output 
line 



y No 

CIs symbol ^ 



No 



Warning Print-Out: 
Sentence (IF) 

(NOT) interpreted ai 
(NOT EQUAL) 



"6" indicator to 
ist-test output 
line 



"6"" indicator to 

,st 

1 -test output 

line 



*© 



2 to relation 
symbol counter 



Change count of 
relation symbols 
to 1 



"4" indicator to 
1 st -test output 
line 



X is fl. pt. var. 



,TT\ J^ S X a ,"^' P ° ln ^\No^ s *a floating- ^\ No^/ls Y a fixed-polnt ^No J ^l 
(41^-31 variable? J^^Uoint constant? jf\ constant? J -*l p 



Is Y a fixed- \No^, 

point variable? ) *(44j 



IJ Jump Routine 



<Get next \ 
symbol ) 



/'is Y a floating "\ Ies o, 
Ipoint constant?- J ^zy 



Change Y to floating 
point and store 



x— vj" Get next \ ^/ Ig symbol ^_yes >--^ 
^14/-*^ symbol y »( to? h-= — 3*; 



(Is Y a fixed -point\ No /" Is Ya fixed- \No ^/ -^ 
constant? }"^~*{ point variable? ) ^V 4 ^) 



No 



Warning Print-Out: 
Sentence ___^^_ 
(IF) TO should 
folios JUMP 



G 



Is symbol TO, SentenJ 
Staten, Line Number, 
No., Sent.? jYes 



Change Y to octal 
and store 



@ 



Get call word for 
Y and store 



"*© 



Transfer X and Y 
prepared data from 
temporary storage 
to buffer region 
output 



J 



^yi y^ 



Get call word for X 
and store in proper 
temporary location 



•"to „..,.k=, „f „i.oJ\ Put line number in y ^. y s. . _ _ 

U,rt s lh V^ standard form and S I« * floating- Ay^Is Y floating- N No A s Y fixed . \j*°J^ 
^acters^svmb.l J— * ^ output — ^ p,i„ t constant? J — §^ point constant? ^ P^ ^tnt variable? ; K^ 



Is Y fixed-point 
constant? 



/Is X fixed-point 



Error reference and 
print -out: Sentence 
. (IF) Incor- 



rectly written . 



v_ 



->. mo 



Change Y to 
floating point 



Is Y floating- 
constant? 



/ Is Y 
\point 



Change X to floating 
point. 



~>® 



( IS 
I poln 



Is Y a fixed- 
t constant? 



Change X to octal 
and store 



Change Y to octal 
and store 



Is Y a fixed-point 1 
variable? 



Change X to octal 
and store 



Change X to floating 
point and store 



Floating-point input 
to preliminary number 
comparison routine 



Octal input to pre- 
liminary number 
comparison routine 



Line number to 
reference list 



<Get next V. * -\ 

symbol /~^T 



(Is symbol V 



(~ Is r? 01 ) J ^@ 



(Is symbol ^_ 
n "IF"? J" 



■*® 



Error reference and 
print-out: Sentence 

(IF) 

Incorrectly written 



Subroutine to change Y to floating point and store 




Is negative value 
desired? 



No 



Transfer output to 
temporary storage 



Yes 



Complement output 
to temporary stor- 
age 



-6^7 



o 

CD 

o 



Subroutine to change X to floating point and store 




Is negative value 
desired 



No 



Transfer output to 
temporary storage 



Yes 



Complement output 
to temporary storage 



Exit 




Subroutine to change X to octal and store 




Is negative value d No 

desired? ' ^ 



Transfer output to 
temporary storage 



Yes 



Complement output 
to temporary 
storage 



v \ Exit 



o* 




00 



Subroutine to change Y to octal and store 




Is negative 
value desired? 



No 



Transfer output to 
temporary storage 



Yes 



Complement output to 
temporary storage 



-<>^ 



IU - Initial Control for Second or Third Clause 



<Sh 



Set-up storing of 
absolute signs in more 
convenient location 



Clearing region of 
temporary storage 



— *\51/* and set-up of JC 
^-^ divider routine 



a3T\ s y mbo1 /\zZs 



Transfer 
symbol to A 



Put negative sign 
indicator in storage 




.No / Has an absolute 
sign been used? 



> 



Yes 



Yes 



®- 



Put absolute sign 
indicator in 
temporary 



IT Preliminary Number Comparison Routine 



OJls test< M No /%« test =? j No , /ls test> ?\_Njj ,/ls test < ?\ Ye S> /Ts X>Y?)WJ > ) 



Yes 



Yes 



Yes 



No 



No 



(Jo^q ^7^0 (JTx^^q ( M ^; y - 



Yes 



Yes 



Yes 



Yes 



Number (6) to 1st 
line of output 






Is Y>X 



~>o 



JUMP 
outpu 



put into title I 
t line I 



50) 



Line number changed 
to 5th position of 
output 



Pseudo-op indicator put 

in 6th output li"?_ 

Warning Print-Out: 
"Becomes unconditional 
jump to sentence 7 



Line number put \ / Write string-out \ 

in reference list ) *\ output on tape y~ 




Store 1st two symbol 
words in temporary 
storage 



Is symbol a A 
negative sign? J 




No 



Yes/ Is symbol an 

absolute sign? 



D 



No 



(Is symbol an ) Yes * ^Z2) 

open paren? J v^/ 



No 



(Is symbol AYes^/ <T\ 



No 



(Is symbol a \Yes>Ov 
constant? J p \3/ 



No 



Is symbol a fixed - 
point variable? 



No 



Is symbol a floa 
point variable? 



^y^@ 



No 



Warning Print -Out; 

Sentence 

(IF) symbol 
Rejected 



— ® 



IY Constant and Fixed-Point Variable Routine for Second or Third Clause 




55 



Was X a number in 
scientific notation? 



Was Y a number in 



^^ scientific notation? Y-^S(58 



Yes 



1 No 





Get next 
symbo 1 




Is symbol 
E? 



No 




Yes 



Is symbol ^ No^^ -\ ^/"Es symbol a^\ No 
* ? J *\^y ~*i negative J 

Yes I Yes 



(Get next \ 
symbo 1 ) 



JB Termination Check Loop Subroutine 




©^ "^r* ) 



/Entry \ Yes 

/TN / Get next \ _/^ Is symbol ~\ No jf Is symbol an *\ No f Is symbol ^Ves/PN /Get next \ 

V^\ symbol / \^___^J \absolute sign? J \<> - NOT? f^S* \ s y mbo1 / 



Yes 




Yes 



Has an open 
absolute sign been 
used? 



No 



Is symbol 
JUMP? 



No 



Error reference and 

print-out: 

Sentence 



(IF) Open Absolute 
Sign Missing 



® K^J 



No 



Yes 



Is symbol "\ v es /~v /Get nex 

A . ? J *\54^) V symbol 



No 



Exit/ 




Negative sign 
indicator to 
temporary 



/Get next \ 
\ symbol ) 



Is symbol a 
J[®q superior negative] 
sign? 





Warning Print-Out: 

Sentence 

(TF^ 

Symbol 
Rejected 








JB Termination 
check loop 
subroutine 









/'""N N o/issymbo]l\ 
\™)* 1 a constant? ) 

« (56)* 



Exponent to 
storage 



JB Floating-Point Variable Routine for Second or Third Clause 

kNo 



^- ^ _/ ^Is symbol in ^ Ye&/ ^ Is vari 

^V~\ combination llst y \subscri 



able 
pted? 



No 



Is symbol in 
pseudo-op list 



Yes 



Is variable sub- 
scripted 



No 



*© 




67, 




JB termination 
check loop sub- 
routine 



Yes 




Is symbol an argu 

ment variable of a 

function? 



>, ^Is symbol an argu-^ Yes ^ 

1 ^^M ment constant of a J K.67) 

*/ V function? J Vs -- / 



Yes 



No 



Warning Print-out: 

Sentence (IF) 

symbo 1 

rejected 



-© 



Set ups: Storage 
subroutine subscript 
index 



/JB termination 
check loop sub- 
. routine 



(Is symbol a\ Yes jf~ \ 
constant? J \^s * 



No 



(Is symbol a fixed-\ 
point variable? J 



No 



Warning print-out: 

Sentence 

(IF) symbol 
Rejected 



Store excess-three rep- 
resentation of con- 
stant or variable in 
temporary region 



Tes 



/Subscript ^\ <o 
Kindex jump J 




JB Termination 
check loop 
subroutine 




Warning print-out: 

Sentence 

(IF) symbol 
Rejected 



CD 



(65^-> 



1-shot switch 



jump to (70) — >(^y— » 



Error reference and 
print-out: Sentence 

_(IF) 

Incorrectly written 




JC Relation Symbol Routines for Second or Third Clause 



1st relation sym- 
bol to temporary 
storage 



Starting count 
of relation 
symbols 



Get next 
symbo 1 



X = 1st variable or constant in 1st clause of IF. 

X2 = 1st variable or constant in 2nd or 3rd clause of IF, 

Y = 2nd variable or constant in 1st clause of IF. 

Y2 = 2nd variable or constant in 2nd or 3rd clause of IF. 



Is symbol \ No 
<L> =? 



Yes 



Store 2 nd relation 
symbol in temporary 
storage 



Up count of 
relation symbols 



© 



® 

Yes 



Is symbol 
NOT? 




Transfer X9 data to 
new temporary 
location 



Clear space for 
Y2 data to come 




Is count of re- \ 
lation symbols <&? ) 



Yes 



JF Jump Routine for Second or Third Clause 



(66)-» Set Ops 



/is X 2 = X? "\_!5, Set U P S jT l * Y 2 = Y ) Yes > 



Set ups 



Subroutine to check 


consistency of 


relation 


symbols and as 


ign 


code figures 




(JI) 





Is sign of X2 
sign of X? 



/i s X = Y 2 ? yjtej 




JI Subroutine to 
check consistency 
of relation symbols 
and assign code 
figures 




Is sign of Y 2 
sign of Y? 



Reversal of 

relation 

symbols 

No , , 
72> 



Is line no. for 2nd 
test in output? 



Is sign of Y 2 = Y_Yes -/""N 

sign of Y? J A™) 



Is sign of X 2 
sign of Y? 



Reverse relation of 
single symbol in tem- 
porary storage. 

6 -{2,3,4}= {4,3,2} 



-® 



Is there a relation 

ymbol in output for 

second test? 



Is sign of Y„ =^\ 
sign of X? ) 



Reverse relation of 
single symbol in 2nd 
test output line 

6 - {2,3,4} = {4,3,2} 



-*© 



Was 1st test a double^ p| 
relation test? 



-»-^v / Get next \ 
(78) — *( symbol \ 



(72 V Yes As sign of Y 2 = \ No > /^S 

^^ V sign of X? J ^-J 



[is symbol TO?) »/80) U 



Reverse relation of 
double symbol in 
temporary storage 

12 - {5.6,7}= {7,6,5} 



-<5) 



Get next 

symbol 



Warning Print-out: 

Sentence 

(IF) TO should follow 
JUMP 



Are comparison 
symbols ambiguous? 



Are comparison 
symbols ambiguous? 




Is there a line 
^Yes ( number in 2nd test 
output position? 





Is there a relatio 
( symbol in output for 
2nd test? 



Get line no. in 
standard form 



Is symbol to.SENTEN 




STATEH, UNE, NUIBEB, \ No/ Is A No 

NO., SENT.? I ^symbol A .? 



Send 
to refe 



line number \ 
erence list ) 



@- 



<^ 



Yes 



Are 1st and 2nd 
tests the same? 



Ji® 



Is 7> number of 
characters in 
symbol? 



Is there a relationX XHas a line number . 

symbol code figure in y et J already been put in * "° 
2nd test output line?/ \ for second test? 



Error reference and 

print-out: 

Sentence _____ (IF) 

incorrectly 

written 





Line number put in 
for 2nd test 



Get next 
symbol 



Line number to un- 
conditional jump line 



Is symbol A 
H j ;? J 



<Get next \ 
symbol / 



Is symbol )?\ 



/^NYes/' Is SJ™ 001 "\ 



Put in indicator that 
3 clauses are under 

, 1" s 

^yNo /is symbol IF?N 



Is symbol \Yes 
_ .? 



JI Subroutine to Check Consistency of Relation Symbols and Assign Code Figures 



Has a 2nd test re la 
tjon symbol been given? 



~X „ /Has a double relation\ s" 

JyrU symbol been used for ) No J 

e y \. 1st test? J VJ^ 



Is the current 
of relation symb 



9: 



Yes/I* tne curre 
(77 )•— Hof: relation symb 



count~\ 
>ols 2?) 



count\ 
10 is 2?)- 



Yes 



/is l«t "N No 
( symbol < ? ) 



/Tjithe unassi 
(relation symbo 



igned 
1 < ? 



<: 



Indicator "2" put 
into temporary 



No / ^Is 2nd "\ 
1 symbol < ? J 



Is the unassigned 
relation symbol > ? 



Ira 



Indicator "4" put 
into temporary 



8 the unassigned 
lation symbol = ? 



S 



Indicator "3" put 
into temporary 



Yes 



Change relation 
count to 1 



*2" indicator to 
2nd test line 



/~ Is 2nd ^\No 
1 H symbol > ? J 



Yes 


"6" indicator 
to temporary 




\Ex 


It/ 



Subroutine to Check Equality of Variables or 
Constants in Separate Clauses 



Sat up index 
fdr 9 lines 



Is one line of one group \ Yes 
corresponding line of 
other group? 




Alter comparing 
instructions 
for next line 
of groups 



"5" indicator 
to temporary 



< 



Is relation 
symbol < ? 



Q 



Put indicator "?." 
into 2nd test out- 
put relation line 



-^7 



Is relation ^\v 



symbol >V 






Put indicator "4" 
into 2nd test out- 
put relation lino 



CIs relation 
symbol = ? 



Put indicator "3" 
into 2nd test out- 
put relation line 



-^7 



"6" indicator into 
temporary 



Change count of 
relation symbols 
to 2 



No /^Is 1st \ 

I symbol > ? ) 



Warning print-out: 

Sentence 

(IF) (NOT) inter- 
preted as (NOT 
EQUAL) 



-V 7 



(Is 2nd V 

symbol < ? r 



"6" indicator 
to temporary 



GIs 2nd \_ 
symbol > 1 J 



"7" indicator 
to temporary 



Change relation 
count to 1 



"4" indicator to 
2nd test line 



1st symbol is NOT 



Is 

symb 



1st \^ 

01 = ? J ~ 



V 



Is 2nd 
-*{ symbol < 1 



V JUmP J (symbo 1 <lY • 



\Exiy 



"5"* indicator 
to temporary 



"7" indicator 
to temporary 



V^7 



(Is 2nd >, Yes 
symbol > ? J » 



Is 2nd \ 
ymbol > ? J~ 



Change relation 



* count to 1 



M 7" indicator 
to temporary 



"5" indicator 
to temporary 



"6" indicator 
to temporary 



"3" indicator 
to 2nd test line 



Wit / 



Entry. 




Set up index for 
6 characters 



— >( 83 )-> 



Extract a character 
from input line by 
shifting and masking 




Is character 

= 77? 



IN Superior Figure to Excess Three 
Lower-Case Figure Routines 




CO 
CD 



Character index 
jump 




Is character one > 
of superior figures 



Yes 



NO 



By position of equal- 
ity in list, select a 
corresponding X3 dec- 
imal lower case 
figure that will rep- 
resent it 



Print-Out: 



Sentence 
__Disal- 



lowable character 
in exponent 



Put erroneous 
character back in 
output line 



>o 




Left shift input- 
output line 6 
times 



Replace in input -out- 
put line the superior 
figure by its cor- 
responding lower-case 
X3 decimal figure 




Character index 
jump 



>o 



W83 



<o 



Exit 




Flow Chart for IQ - Scientific Notation Evaluation Routine 




Entry> 



Clear temporary 
holding negative 
indicator 



<Is floating- 
point number 
zero? 



CD 





Is exponent 
zero? 




Is floating 
No / noint number 
negative? 




Yes 



Complement 
input 



Set negative 
indicator 



NO^N 



*® 



o 



® 



Is 1> float^ 
ing-point number' 



«!U<g> 



/is 1 = f loatin 
-Wpoint number? ' ° 



Yes 



Reduce exponent 
value by 1 




Yes 



6- 



Floating Multiply 
by 10 and store 
answer back in in- 
put line of fltpt. 
number 



-*® 



Is exponent 
zero? 



NO 




Yes 



Yes 



Is exponent 
negative? 




Is 38 > 
exponent? 



Exit 



Is 10 > float- 
ing point number?] 



No 



Yes 



Je_ 



4^94)- 



z' Has negative 

^/indicator been 

V set? 



NO 



Exit 





Is 38 = 
exponent? 



No 

K — 




Add 1 to exponent 
value 



Floating divide 
floating-point 
number by 10 and 
store quotient 
back in input line 



Ye: 



Complement float- 
ing-pt. output 





Is floating- 
point no. > 
201663437341? 



Yes 



Error reference 
and print-out: 
Sentence 



absolute value of 
number too large 



No 



Multiply floating 

point number by 
10 38 



*© 







95 



Is 39 > absolute A No 
value of exponent? 




Yes 



® 



Form a floating-point 
number equal to the 
power of 10 Indicated 
by exponent 



Is exponent 

negative? 



Yes 



Divide fltpt. no, 
by power of 10 
and store back 



Is 39 = 
Jexponent J ? 



Yes / Is 201570121001 >\ No 



fltpt. no. 



No 



6* 



Yes 



Zero put in 
output line 



Warning Print-Out: 
Sentence , 



absolute value of num* 
ber too small -Given 
zero value 



No 



Multiply fltpt. 
no. by power of 
10 and store 
back 




® 



Divide fltpt. no. by 
10 and store back 



Divide fltpt. no. by 
10^° and store back 



® 



® 



IF STRING-OUT REGIONS 



RE 


SC4417 


RE 


IE4430 


RE 


IF4565 


RE 


IG4631 


RE 


IH4655 


RE 


II4777 


RE 


IJ5120 


RE 


IK5316 


RE 


IL5340 


RE 


IM5503 


RE 


IN5617 


RE 


105647 


RE 


IQ5676 


RE 


IR6025 


RE 


IS6037 


RE 


IT6042 


RE 


IU6105 


RE 


IY6141 


RE 


JB6177 


RE 


JC6261 


RE 


JF6305 


RE 


JI6470 


RE 


UF6614 


RE 


ID6702 



Two auxiliary print-out routines 

Constant routine 

Control routine 

Fixed point variable routine 

Floating point variable routine 

Relation symbol routine 

Jump routine 

Termination space period routine 

Floating point variable routine 

Excess-Three Print-out storage 

Superior to lower-case figure routine 

Storage for "IN" 

Scientific notation check 

Constants for IQ 

Three temps, for IQ 

Preliminary number comparison routine 

2nd control routine 

2nd constant and fixed-point variable routine 

2nd floating-point variable routine 

2nd relation symbol routine 

2nd jump routine 

Relation code assignment and consistency 

Constant storage 

Error print-out routines. 



String-Out Subroutine regions are also needed 
to assemble the IF tapes. 



692 



IF String-Out (Tape 1) 



Auxiliary Print-Out Routines 





IA 


SC 







TP 


VN1 


WB3 ' 


1 


TP 


UF2 


WB5 


2 


TP 


WB10 


WB6 


3 


RJ 


WA 


WA12 


4 


MJ 





30000. 




ir 


SC10 


rmn "i 

uro 


6 


RJ 


UP2 


UP 


7 


MJ 





30000 


10 


40 


SY2 


1 j 




CA 


sen 





Assists in warning that "if™ sentence to 
"jump"* change has been made. 



Prints symbol occurring in sentence at 
point where analysis breaks down in 
print-out: Incorrectly written 



Control Routine 





IA 


IF 









MJ 





CT 




1 


RP 


10031 


IF3 1 

VN4 I 




2 


TP 


UF7 




3 


RP 


10031 


IF5 1 
VN71 J 


L 


4 


TP 


UF7 




5 


TP 


UF30 


VN 




6 


TV 


IF43 


II 




7 


TP 


TS4 


Q \ 


10 


QJ 


IF11 


IF12 J 




11 


TP 


UF27 


VN33 




12 


RJ 


SY 


SY1 




13 


TP 


SY2 


A 




14 


TP 


SY2 


VN75 1 




15 


TP 


SY3 


VN76 J 


16 


EJ 


UF20 


IF12 


. ] 


17 


EJ 


UF21 


IF 12 


u 


20 


EJ 


UF2 


IF12 


21 


EJ 


UF14 


IK A. 


22 


EJ 


UF4 


IF35 


— 


23 


EJ 


UF3 


IF41 


1 


24 


EJ 


UF17 


IF12 


( 


25 


TP 


SY11 


Q \ 




26 


QJ 


IE 


IF27 J 


27 


TP 


SY10 


\ 


30 


QJ 


IG 


IF31 J 




31 


TP 


SY7 


Q 1 
IF33 J 


. 


32 


QJ 


IH 




33 


RJ 


ID 16 


ID13 




34 


MJ 





IF12 




35 


TP 


VN107 


Q 1 




36 


QJ 


IF12 


IF37 


h 


37 


TP 


UF27 


VN106 . 




40 


MJ 





IF12 





Exit 

Clearing lines to be used for output 

Clearing temporary storage lines 

Number of lines (34) to of VN 

Setting up first line of relation routine. 

Pseudo-op test 

Pseudo-op indicator to VN33 

Getting next symbol 

Symbol to A 

First 2 symbol output lines to 

temporary storage 

Get next symbol. 

Jump to space, period routine 

Jump to negative sign subroutine 

Jump to absolute sign subroutine 

Get next symbol 

Is symbol a constant? If so, jump to 

constant routine, ie 

Is symbol a fixed-point variable. If so, 

jump to IG, fixed-point variable routine 

Is symbol a floating-point variable? 

Jump to IH 

Sentence — (If) Symbol Rejected — 

Puts negative sign indicator in proper 
storage if an absolute sign has not 
preceded it. 
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41 


TP 


UF27 


VN10 


42 


MJ 





IF12 


43 








113 




CA 


IF44 





Puts absolute sign indicator in proper 
storage space 



Constant Routine 





IA 


IE 







RJ 


RB 


RBI 


1 


TP 


II 


A 


2 


EJ 


IE134 


IE5 


3 


TP 


UF27 


VN31 


4 


MJ 





IE6 


5 


TP 


UF27 


VN32 


6 


TP 


SY5 


A 


7 


TJ 


UF23 


IE27 


10 


TP 


VN75 


GG4 


11 


TP 


VN76 


GG5 


12 


RJ 


GG2 


GG 


13 


TP 


GG3 


VN71 


14 


TP 


UF27 


VN121 


15 


RJ 


SY 


SY1 


16 


TP 


SY2 


A 


17 


EJ 


UF 


IE46 


20 


EJ 


UF1 


IE102 


21 


RJ 


IE26 


IE23 


22 


MJ 





IE117 


23 


TP 


VN106 





24 


QJ 


IE25 


IE26 


25 


TN 


VN71 


VN71 


26 


MJ 





30000 


27 


TP 


SY6 


A 


30 


ZJ 


IE 10 


IE31 


31 


TP 


VN75 


VN72 


32 


RJ 


SY 


SY1 


33 


TP 


SY2 


A 


34 


EJ 


UF 


IE45 


35 


EJ 


UF1 


IE101 


36 


MJ 





IE117 


37 


TP 


VN72 


GG4 


40 


TP 


UF31 


GG5 


41 


RJ 


GG2 


GG 


42 


TP 


GG3 


VN71 


43 


TP 


UF27 


VN121 


44 


MJ 





30000 


45 


RJ 


IE44 


IE37 


46 


RJ 


SY 


SY1 


47 


TP 


SY2 


A 



ru i -* *- u fl or fewer, s 

Checks if figure has in . 

3 < 12 or less characters 

.no letters 
Check if right of relation symbol 
Constant indicator for X figure to output 

Constant indicator for Y figure to output 
Is 7 > number of characters? 

Conversion of figure to floating point 

Floating-point output to proper storage 
Floating-point indicator to storage 
Get next symbol 

Is symbol an e? 
Is symbol a * ? 
Jump to negative-value subroutine 



j Is negative value desired? 



Changing floating point figure to negative 
figure 

Are number of decimal points zero? 

Storing fixed-point X3 figure 
Getting next symbol 

Is e next symbol? 

Is * next symbol? 

Continuation beyond scientific-notation 

analysis 

Changing fixed-point X3 decimal figure to 
a floating-point number 

Floating-point indicator to storage 

Changing fixed-point no. to a floating- 
point no. 
Getting next symbol 
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DU 


£J 


ur4 


i-&LLZ 


51 


EJ 


UF5 


IE112 


52 


TP 


SY11 


Q 


53 


X~ 


IE54 


ID42 


54 


rpp 


SY2 


VN100 


55 


TP 


SY13 


\ 
IE63 J 


56 


QJ 


IE57 


57 


TP 


SY2 


IN2 \ 
INI J 


60 


RJ 


IN 


61 


TP 


IN2 


RS4 \ 
IE65 J 


62 


MJ 





63 


RJ 


RD 


RD1 


64 


TP 


SY2 


RS4 \ 
RS J 


65 


RJ 


RS2 


66 


TP 


VN77 


1 
IE72 J 


67 


QJ 


IE70 


70 


TN 


RS3 


IQ3 


71 


MJ 





IE73 


72 


TP 


RS3 


IQ3 


73 


TP 


VN71 


IQ2 


74 


MJ 





IE75 


75 


RJ 


IQ 


IQ1 


76 


TP 


IQ2 


VN71 


77 


RJ 


IE26 


IE23 


100 


MJ 





IE115 


101 


RJ 


IE44 


IE37 


102 


RJ 


SY 


SY1 


103 


TP 


SY2 


A 


104 


EJ 


UF22 


IE106 


105 


MJ 





ID42 


106 


RJ 


SY 


SY1 


107 


TP 


SY2 


A 


110 


EJ 


UF25 


IE46 


111 


MJ 





IE50 


112 


TP 


UF27 


VN77 


113 


RJ 


SY 


SY1 


114 


MJ 





IE52 


115 


RJ 


SY 


SY1 


116 


TP 


SY2 


A 


117 


EJ 


UF3 


IE 130 


120 


RP 


20004 


IE1221 
IE115J 


121 


EJ 


UF16 


122 


RP 


20004 


IE1241 
II J 


123 


EJ 


UF10 



is symbol a negative sign? 

Is symbol a superior negative sign? 

Is symbol a figure? 

TP nnt nrint-niit S^ntpn«>0 _ _ C/» i on + i -P i /> 

notation incorrectly written 

Storing figure 

Is symbol an exponent figure? if not, go 

directly to X3 decimal to octal conversion 

at IE63 

Conversion of exponent to X3 decimal 

figure 

Output to RS 4 and jump to octal 

conversion routine 

Check if symbol is a legitimate fixed-point 

figure 

Conversion of figure to octal 

Check if sign of figure is negative 

Complementing figure and putting into 
scientific notation routine input 

Figure to input of scientific notation routine 

Floating-point figure to input of IQ 

scientific notation routine 

Dummy jump (replaces a discarded instruction) 

Check of scientific notation figures and 

converts to floating point 

Output to storage 

Changing output to negative if desired 

Continuation beyond scientific notation 

Changing fixed point to floating point no. 
Getting next symbol 

Is next symbol a 10? 

Print-out: Sentence — Scientific notation 

incorrectly written 

Getting next symbol 

Is symbol = POW? 

If not, jump to other equality tests. 

Negative sign indicator storage for exponent 
Getting next symbol 

Getting next symbol 

Is symbol an absolute sign? 

Is symbol ) ( , ; ? 

If syjnbol is < > = NOT jump to II rela- 
tion symbol routine 
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124 


EJ 


UF15 


IJ 


125 


EJ 


UF14 


IK 


126 


RJ 


ID16 


ID13 


127 


MJ 





IE115 


130 


TP 


VN107 


Q 


131 


QJ 


IE115 


IE1321 
ID52 J 


132 


RJ 


ID56 


133 


MJ 





IE115 


134 


RJ 


II 


III 




CA 


IE135 





If symbol is JUMP, go to I J jump routine 

A. exit 

Print-out: Sentence — Symbol Rejected — 

Has an open absolute sign been encountered? 
If not, reference error routine and print- 
out : Sentence- -Open absolute sign missing. 



Fixed-Point Variable Routine 



Fixed-point 


IA 


IG 




variable 


RJ 


RH 


RH1 


routine - 1 


TP 


UF27 


VN74 


1st letter 2 


TP 


TS4 





i f j,k,l, or 3 


QJ 


IG4 


IG10 


m 4 


RJ 


TS 


TS1 


5 


MJ 





IG10 


6 


TP 


TS3 


VN110 


7 


MJ 





IE115 


10 


RJ 


TA 


TA1 


11 


MJ 





IG14 


12 


TP 


TA4 


VN110 


13 


MJ 





IE115 


14 


RJ 


TK 


TK1 


15 


AT 


UF32 


VN110 


16 


TP 


UF33 


TF 


17 


TP 


SY2 


TF1 


20 


TP 


A 


TF2 


21 


TP 


UF7 


TF3 


22 


RJ 


TE 


TE1 


23 


MJ 





IE115 



CA IG24 



Check if symbol is a valid variable 
Set fixed-point variable indicator 

Is "if** sentence within Pseudo-Operation 

Is symbol in Pseudo-Op list? 

No 

Yes. Pseudo-Op call word to location 

Is symbol in Combination List? 
No 
Yes 

Exit for terminating characters before 
a divide or jump 

Get next call word of 64, 65, 66 type 
Adding in 64000 (fixed-point variable call- 
word base) 

Building up file for addition of item 
to Combination List 

Adding file to Combination List 

Exit for terminating characters before a 

divide or jump 



Floating-Point Variable Routine 





IA 


IH 







TV 


IL136 


IL40 


1 


TV 


IL136 


IL20 


2 


TV 


IL136 


IL32 


3 


TV 


IL131 


IL61 


4 


TV 


IL132 


IL56 


5 


TV 


IL132 


IL53 


6 


TV 


IL137 


IL112 


7 


TV 


IL140 


IL113 


10 


RJ 


RH 


RH1 


11 


TP 


TS4 





12 


QJ 


IH13 


IH61 



Set-ups 



Check if valid variable. 

Check if within pseudo-operation 
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Within 

Pseudo* 

Op 



Ps-Op 
Sub. Var 



13 RJ 

14 MJ 

15 TP 

16 TP 

17 TJ 

20 MJ 

21 TP 

22 QT 

23 LQ 

24 RS 

25 TP 
25 TP 
27 QT 

30 SA 

31 TP 

32 LQ 

33 AT 

34 TU 

35 TP 

36 ZJ 

37 RA 

40 RJ 

41 RJ 

42 RJ 



TS 



TS3 

DF34 

VN110 



DF37 

VN110 

VN105 

Q 

Q 

UF40 

VN110 

DF41 

A 

VN105 

VN73 

A 

VN115 

IH37 

VN73 

IL60 
IL25 
IL33 



43 RJ IL52 



DF6 

vni: 



IL34 



44 


IJ 


VN115 


IH36 


45 


MJ 





IE115 


46 


TV 


IL141 


IL20 


47 


TV 


IL141 


IL40 


50 


TV 


IL141 


IL32 


51 


RJ 


IH121 


IH72 


52 


ZJ 


IH53 


IH54 


53 


RJ 


IL130 


IL112 


54 


RJ 


IL25 


IL 


55 


RJ 


IL33 


IL26 


56 


RJ 


IL52 


IL34 



Is symbol in pseudo-op list? 

No 

Yes. Call word to temporary location 

Is call word > 76000? 

Exit subroutine 

Number of subscripts to (vnl05) 
Subscript index set up 
630 RR to A u 



630 (RR + no. subscripts), call word 
of modulus, to (vnl05) u 

Is subscript index zero? 

Call word of multiplier formed in 

(vn73) u 

Multiplier call word to u of proper 

location 

Handling subscript as constant & 

checking on variable. 

Checking if fixed-point variable is 

in pseudo-op list and getting call 

word, if so 

Checking if fixed-point variable is in 

combination List and, if not, adding 

it in. Call word to location. 



Check if symbol is in Comb. List and, 
if not, adding it in 
Is index vnll5 zero? 
Call word for multiplier to location 
Constant or fixed-point variable sub- 
script to location. Constant call wd 
to location. 

Search for call word of var. in 
pseudo-op list 

Search for call word of var. in Comb. 
List and adding it in if not found 
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57 


IJ 


VN115 


IH52 




60 


MJ 





IE115 


Not within 


[61 


TV 


IL142 


IL20 


Pseudo-Op 


62 


TV 


IL142 


IL40 




63 


RJ 


IH121 


IH72 




64 


ZJ 


IH65 


IH66 




65 


RJ 


IL130 


IL112 


« 


66 


RJ 


IL25 


IL 



67 RJ IL52 



70 IJ 

I 71 MJ 

72 RJ 

73 MJ 

74 TP 

75 TP 

76 TJ 

77 MJ 

100 RJ 

101 AT 

102 TP 

103 TP 

104 TP 

105 TP 

106 RJ 

107 MJ 

110 TP 

111 QT 

112 ST 

113 TP 

114 QT 

115 LQ 

116 RJ 

117 TD 

120 TP 

121 MJ 
CA 



VN115 



TA 



TA4 

DF36 

VN110 



TK 

DF43 

UF33 

SY2 

A 

UF7 

TE 



DF44 

TA5 

UF6 

DF45 

TA5 

A 

GW 

A 

VN115 



IH122 



IL34 



IH64 

IE115 

TA1 

IH100 

VN110 

A 

IH110 

IL64 

TK1 

VN110 

TF 

TF1 

TF2 

TF3 

TE1 

IE115 

Q 

VN105 

VN115 

Q 

A 

25 

GWl 1 

VN105J 

A 

30000 



Check if symbol is in Comb. List and, 

if not, adding it in 

Is subscript index zero? 

Call word for multiplier to location 

Handling subscripts as constant 

& checking on variable 

Checking if fixed-point variable is 

in Comb. List and, if not, adding it 

in. Call word to location. 



Check if symbol is in Combination List 
Not in 

Is in. Putting call word into loca- 
tion 

Check if symbol is a subscripted var- 
iable of 77 type 

To get call word of 64, 65, 66 types 
Adding in 65000 (has to be fl. pt. 
var.) and storing 



Adding file to Combination List 



Number of subscripts to (vnl05) v 
Setting up index 



Modulus to A v 



Call word of modulus to (vnl05)u 
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" 


RJ 


SY 


SY1 




1 


TP 


SY2 


A 




2 


RP 


20004 


IL4 1 




3 


EJ 


DF16 


IL J 




4 


TP 


SY11 


Q \ 
IL21 J 




5 


QJ 


IL6 




6 


TP 


SY13 


Q 




7 


QJ 


TJ12 


IL10 




10 


RJ 


RD 


RD1 


Subscript 










a constant' 


11 


RJ 


IL63 


IL61 




12 


TP 


SY2 


RS4 1 
RS J 




13 


RJ 


RS2 




14 


TP 


RS3 


A \ 
GWl J 




15 


RJ 


GW 




16 


TD 


UF35 


IL53 1 
IL53 J 




17 


RJ 


IL55 




.20 


MJ 





LIH44] 




21 


TP 


SY10 


Q ' 




22 


QJ 


IL23 


IJ12. 


Subscript 


[23 


RJ 


RH 


RH1 


a fixed- « 


24 


RJ 


IL63 


IL61 


point 


25 


MJ 





30000 


variable 












26 


RJ 


TS 


TS1 




27 


MJ 





IL33 


Getting 


30 


TD 


IL135 


IL53 


call word 


31 


RJ 


IL55 


IL53 


for var. 


32 


MJ 





[IH44] 


in pseudo- 


.33 


MJ 





30000 


op list 











34 RJ TA 



35 MJ 



TA1 



IL41 



Getting next symbol 



Is symbol ) ( , ; v 

Is symbol a constant? 

If symbol is a superior figure, error 

ref. and print-out occurs: Sentence 

— (If) Incorrectly Written — 

Check for validity of fixed-point 

constant 

Put constant in temporary location 

Converting constant to octal 
Getting call word for constant 

Constant call word to temp, location 

Jump index check for subscripts of 
pseudo ops. IH57 or IH70 in v 
occasionally 

Test if symbol is a fixed-point var- 
iable. If not, error print: Sentence 
incorrectly written — 

Check for validity of variable 
Variable to temp, location 



Check if variable is in pseudo-op 

list 

Not in list 

Is in list. Putting call word in 

location 
Or IH 57 in v 



Check if fixed-point variable is in 
Combination List 
Not in list 
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Getting 
call word 
for var. 
in Comb. 
List 



Putting 
call word 
for var. 
in Comb. 
List and 
temp, 
location 



TV [Q] 
RA IL53 



36 TO IL134 

37 RJ IL55 

40 MJ 

41 RJ TK 

42 AT UF32 

43 TP UF33 

44 TP SY2 

45 TP UF7 

46 RJ IE 

47 TP TF2 

50 TU DF35 

51 RJ IL55 
[52 MJ 

53 
54 

55 MJ 

56 TD VN73 

57 RA IL56 

60 MJ 

61 TP SY2 

62 RA IL61 

63 MJ 

64 TP VN110 
Exit f 65 TJ UF46 
subroutine 66 TJ DF47 

67 RJ SY 

70 TP SY2 

71 RP 20004 

72 EJ UF16 

73 EJ DF3 

74 RP 20004 

75 EF DF10 

76 EJ DF15 

77 EJ DF14 

100 TP SY7 

101 QJ IL67 

102 TP SY11 

103 QJ IL67 

104 RJ ID16 
1105 MJ 

106 TP VN107 

107 QJ IL67 



Check for 
open ab- 
solute 
sign 



110 RJ ID56 



111 
112 
113 
114 
115 
116 



MJ 

RJ IL112 

RJ IL113 

TP UF44 

QT TA7 

MJ 



IL53 
IL53 

(JH44J 

TK1 

TF2 

TF 

TF1 

TF3 

TE1 

Q 

IL53 \ 

IL53 J 

30000 
[VN111]1 

UF6 J 

30000 , 
[VNlll] 

DF6 

30000 J 
[VN101] 

UF6 

30000 J 

A 

IL67 

BE115 

SY1 

A 

IL72 

IL67 

IL106 

IL76 

II 

IJ 

IK 

Q 
IL102 

Q \ 
IL104 J 

ID13 

IL67 

Q \ 
IL110 J 

ID52 

IL67 

[IL117] 

[IL122] 

Q 
A 
IL125 



} 



Is in List 

Call word to location 

Jump to subscript index for pseudo-op. 

(IH57 or IH70 in v occasionally) 

To get call word (next) of 64, 65, 66 

Adding in 64000 

Adding variable and call word to 
Combination List 



Putting call word in location 



Call word to location 



Call word for multiplier to location 



Storage of X3 for subscripts 



Is it a dummy function ? 
Is it not a function? 
Get next symbol 

( ) , ; checks 
I sign check 

< > = NOT 

JUMP 

A . 

Test if symbol is a variable used as 

argument of single-valued function 

Test if symbol is a constant used as 

argument of single-valued function 

Error Print: Symbol Rejected — 

Test if there has been an open abso- 
lute sign 

Error print: Open absolute sign 
missing 

1-shot switch 
1-shot switch 
3rd Multiplier -» A 
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117 
120 
121 
122 
123 
124 
125 
126 
127 

130 
131 
132 
133 
134 
135 
136 
137 
140 
141 
142 



TP 
QT 
MJ 
TP 
QT 
LQ 
RJ 
TU 
RJ 

MJ 





















CA 



UF44 

TA6 



(JF45 

TA6 

A 

GW 

A 

IL60 







VN73 

TA4 

TS3 











IL143 



Q \ 
A J 

IL125 

Q 

A 

25 

GW1 \ 

VN73J 

IL56 

30000 

VN101 

VN111 







IH44 

IL117 

IL122 

IH57 

IH70 



1st Multiplier — >A 



2nd Multiplier 



Call word for multiplier to (VN73) U 

Call word to proper temporary loca- 
tion 



Pseudo-op list routine location 



Relation Symbol Routine 



IA 

RJ 

1 RJ 



2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 

15 

16 
17 

20 
21 



MJ 
TP 
TP 
RJ 
TP 
RP 
EJ 
TP 
RA 
EJ 
RP 
TP 

RP 
TP 

TP 
EJ 



rr 
n 

ID40 



A 

DF6 

SY 

SY2 

20003 

UF10 

A 

VN116 

DF13 

30031 

VN71 

10031 
DF7 

VN65 
UF26 



H3 
ID34 

IF 

VN117 

VN116 

SY1 

A 

1113 ? 

1111 J 

VN120 

DF6 

III 

II16\ 

VN40J 

II201 
VN71J 



1141 



Error Print: Sentence (IF) Incor- 
rectly written — 

Store 1st relation symbol 
Start count of relation symbols 
Get next symbol 

< > = tests 

Store 2nd relation symbol 
Dp count of relation symbols 
Not? 

Transfer block of X data to new tem- 
porary location 

Clearing storage for reception of Y 
data 

Is count of relation symbols equal 
to 2? 
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One 22 TP 

relation 23 EJ 

symbol 24 EJ 

25 EJ 

26 MJ 

27 TP 

30 MJ 

31 TP 

32 MJ 

33 TP 

34 MJ 

35 RJ 

36 

37 

40 
When there 41 
are two 42 
relation 
symbols 

NOT 




55 MJ 

56 TP 



57 
60 
61 
62 
63 
64 
65 
66 
67 
70 
71 
72 
73 
74 
75 



MJ 
TP 
EJ 
EJ 
MJ 
TP 
TP 
MJ 
TP 
MJ 
TP 
MJ 
TP 
EJ 
EJ 



VN66 

DF10 

UF11 

DF12 



DF26 



DF61 



DF60 



ID121 

UF63 

UF26 



VN66 

0F13 

DF10 

DF11 



VN67 

UF10 

DF11 



DF64 



DF62 


UF63 



VN67 

DF10 

DF11 



DF6 

DF26 



DF63 



DF62 



VN67 

UF10 

DF11 



A 

IT27 

1131 

1133 

IT35 

VN4 

IF13 

VN4 

IF13 

VN4 

IF13 

ID116 

VN4 

VN65 

IF13 

A 

1146 

1160 

1173 

rrio6 

A 

H52 
IT54 
IT56 

VN4 

IF12 

VN4 

IF12 

VN4 

IF12 

A 

1164 

IT67 

1171 

VN65 

VN4 

IF12 

VN4 

IF12 

VN4 

IF12 

A 

1177 

moi 



> LSymbol tests 

notJ 

<£ "2" indicator to output 
Return to if control routine to 
examine symbol not used 



4" indicator to output 



_ WoH 



3 indicator to output 

Sentence — NOT interpreted as NOT 

EQUAL 

NOT = "6" indicator to output 

Putting 2 in relation-symbol counter 



NOT? 

< ? 

> ? 

< ? 

> ? 

NOT< indicator H 7" to output line for 

1st test 

Return to if control routine to get 

next symbol 

NOT > indicator W 5 H to output line 

for 1st test 

NOT = indicator n 6 H to output line 
for 1st test 



«? 
<>? 
< = 

« 



oor NOT = indicator "6" to output 
<=indicator H 5 H to output 

><? 
»? 



702 



Relation 
symbols 
in vn4 and 
vn6 



1 in 

vnl42 

count 



76 

77 

100 

101 

102 
103 
104 
105 
106 
107 
110 
111 
112 
113 
114 
115 
116 

117 
120 



1 in rn4 

2 coming 
up 




1 
2 
3 

4 

5 

6 

7 

10 

11 

12 

13 
14 
15 
16 
17 
20 
21 

23 
24 



MJ 
TP 
MJ 
TP 

TP 
MJ 
TP 
MJ 
TP 
EJ 

C T 

MJ 
TP 
MJ 
TP 
MJ 
TP 





DF63 

DF6 

DF61 



UF64 



VN67 

DF10 

rrt«T i 

urn 



DF62 



DF64 



DF6 



TP DF60 
MJ 
CA 11121 



III 04 
VN4 
IF12 
VN65 

VN4 

IF12 

VN4 

IF12 

A 

III 12 

x-r-i -i a 
XX1X1 

in 16 

VN4 

IF12 

VN4 

IF12 

VN65 

VN4 
IF12 



> - 

NOT = indicator "6" to output 

» Count of relation symbols reduced 

to 1 

Indicator "4" to output 

> = indicator "7 M to output 



= < ? 

o 

- > f 

= < indicator "5" to output 

= > indicator "7 W to output 

= = Count of relation symbols reduced 

to 1 

Indicator w 3" to output 



Relation Symbol Code Assignment and Consistency Routine 



IA 
MJ 
TP 
TP 
ZJ 

TP 
EJ 
TP 
EJ 
EJ 
EJ 
MJ 

TP 
MJ 
TP 
MJ 
TP 
MJ 
TP 
EJ 
TP 
EJ 



JI 



UF7 

VN6 

J14 

VW142 

UF26 

VN143 

DF10 

DFll 

DF12 



UF26 



DF61 



UF60 



VN65 

DF26 

VN142 

UF26 



30000 
JH23 
A 
JI21 



A 

JI12 

A 

JI13 

JI15 

JI17 

ID103 

JH23 

JT 

J1123 

JT 

JH23 

JT 

A 

JI4 

A 

JT44 



Clearing temporary 

Has a 2nd-test relation symbol been 
supplied? 

Ts the count of relation symbols 2? 

< ? 

> ? 

= ? 

Error Print: Comparison symbols 

ambiguous 

< Indicator M 2" to temporary 

> Indicator "4 H to temporary 

= Indicator "3" to temporary 

If 2 relation symbols in 1st part of 
if or in vn4 f go to above 

Is the current count of relation 
symbols 2? 
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1 in vn4 
1 coming 
up to go 
in vn6 



25 
26 
27 
30 
31 
32 

33 
34 

35 
36 

37 
40 



41 
42 
43 

2 relation 44 

symbols. 

Nothing 

in vn6, 

1 in vn4 



1 in vn 4 
1 in vn 6 



45 
46 
47 
50 
51 
52 
53 
54 
55 
56 
57 
60 
61 
62 
63 
64 
65 
66 
67 

70 

71 

72 

73 

74 

75 

76 

77 

100 

101 

102 

103 



TP 
EJ 
EJ 
EJ 
MJ 
TP 

MJ 
TP 

MJ 
TP 

MJ 
TP 

TP 
RJ 
MJ 
TP 
EJ 
EJ 
EJ 
TP 
EJ 
EJ 
MJ 
TP 
MJ 
TP 
MJ 
TP 
MJ 
TP 
EJ 
EJ 
MJ 
TP 
TP 

MJ 
TP 
MJ 
TP 
MJ 
TP 
EJ 
EJ 
MJ 
TP 
MJ 
TP 



VN143 

DF10 

DF11 

DF12 



DF26 


DF61 


DF60 


DF63 

UF26 

ID121 



VN143 

DF10 

UF11 

UF12 

VN144 

0F10 

UF11 



DF64 



UF62 



DF63 



VN144 

DF10 

DF11 



UF6 

UF26 



DF63 



UF62 



VN144 

UF10 

DF11 



DF62 



UF64 



A 

J 132 
JI34 
JI36 
J 140 
VN6 

JI 
VN6 

JI 

VN6 



JI 

JI123 

JI 

JI123 

JT 

A 

JT101 

JT103 

JI105 

JT123 

JI 

JI123 



< ? 

> ? 
= ? 
NOT 

< Indicator "2" to 2nd test output 
line 

> Indicator M 4 M to 2nd test output 
line 

= Indicator "3" to 2nd test output 
line 

"NOT" occurring alone was miscounted 
as one. Recounted as 2 

Print: NOT interpreted as NOT EQUAL 



< ? 

> ? 

= ? 

NOT 

NOT < ? 

NOT > ? 

NOT = 

NOT < Indicator "7" to temporary 

NOT > Indicator "5" to temporary 

NOT = Indicator "6" to temporary 

<< ? 
<> ? 

< = 

<< Correction of 2 count to 1 count 
Indicator "2" in 2nd test output 
line 

<> Indicator "6" to temporary 

< = Indicator "5" to temporary 

= < ? 
= > ? 

= < Indicator "5" to temporary 

= > Indicator "7" to temporary 
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1 in vn4 
1 in vn6 



104 MJ 

105 TP 

106 TP 



1 in vn4 
1 in vn6 



107 
110 
111 
112 
113 
114 
115 
116 
117 

120 
121 
122 
123 



MJ 

TP 
EJ 
EJ 
MJ 
TP 
MJ 
TP 
TP 

MJ 

TP 

MJ 



CA 





DF6 

DF60 


VN144 
UF10 
UF11 


UF63 


UF6 
0F61 



UF64 





JI124 



JI 

VN142 

VN6 

JT 

A 

JI114 

JT116 

JT121 

JI123 

JT 

VN142 

VN6 

JI 

JT123 
J I 




= =} Correction of 2 count to 1 

\> count. Indicator 3 to 2nd test 
J output line 



>< ? 
>> ? 

> = 

< > Indicator 6 to temporary 

>> 1 Corr. of 2 count to 1 

^Indicator M 4" to 2nd test 
J output line 

> = Indicator n 7 w to temporary 



Constant Storage 





1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 

15 

16 

17 

20 

21 

22 

23 

24 

25 

26 

27 

30 

31 

32 

33 

34 



IA 

30 

56 

34 

42 

02 

00 





37 

16 

76 

50 

01 

44 

43 

17 

21 

23 

04 





52 



40 



77 









DF 

77777 

77777 

31777 

77777 

77777 

77777 





77777 

77777 

77777 

51667 

22777 

67475 

77777 

77777 

77777 

77777 

03777 





51717 







77777 



3 





77777 

77777 

77777 

77777 

77777 

77777 

1 



77777 

77777 

77777 

77777 

77777 

27777 

77777 

77777 

77777 

77777 

77777 

7 

14 

77777 

2 



34 

77777 

64000 

3 

76000 



if 
I 

V 



< 
> 

NOT 
A . 
JUMP 
) 
( 



10 

12 

POW 

< 



705 



35 





31000 







36 








76777 




37 








00700 




40 








00077 




41 








63000 




42 





1 







43 








65000 




44 








77777 




45 





77777 
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If String-Out (Tape 2) 



Error Print-Out Routines 
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Storing rejected symbol and referencing 
sentence number routine 



Sentence — (If) 
Inconsistent sign change 

Error routine referenced 



Sentence — (If) Symbol Rejected — 



Warning only 



Sentence — ( ) Disallowable char- 
acter in exponent 



Error routine referenced 

Sentence — (If) Incorrectly Written 



Error routine referenced 

Sentence — (If) Scientific notation 
Incorrectly written 

Error routine referenced 



Sentence — (If) Open absolute sign 
missing 



Error routine referenced 
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76 

77 

100 
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UZ 
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UZI 

UP3 

UP 

IF 

11 



Sentence — (If) To" should follow 

"Jump** 
Warning only 



Sentence — (If) becomes unconditional 
Jump to Sentence ________ 



Warning only 



Sentence — (If) Space period occurs 

before sufficient data given 
Reference error routine 



Sentence — (If) Comparison symbols 
ambiguous 

Error routine referenced. Terminate 
analysis of sentence 

Sentence — (If) Set of variables differs 
From Initial Set 

Error routine referenced. Analyses 
of sentence terminated. 

Sentence — (If) (NOT) interpreted as 

(NOT EQUAL) 
Warning only 

Sentence — (If) Fixed- and Float ing-pt. 
Values are not comparable 

Error routine referenced. Analysis of 
sentence discontinued. 



CA ID130 



Excess-Three Print-Out Storage 
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51246 
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Superior to Lower-Case Figure Routine 



23 IJ 101 





ID31 



1014 

IN30 



IN 
ID23 

IN16 




Exit 

Entry 

Input-Output Line 

Setting up index for 6 characters 

Masking out 1st character to A 

Is character equal to 77? 

Is character one of superior X3 decimal 

figures? 

-n, - (j-r) 

-n t -(j-r) + n t j = r in u position 

(iol5+r)_> inl5 
u 

X3 decimal figure representation — >A V 

Translated figure is incorporated into 
Input-Output line 

Index of input exhaustion 

To exit 

When 1st character = 77, no further 
translation to X3 decimal is performed, 
The 1-0 line is merely returned to 
original position. 

Exit 

Sentence — ( ) Disallowable char- 
acter in exponent . 

Parameter 
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Storage for "IN 1 



IA 10 
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Scientific 
Notation 1 
Evaluation 2 
Routine 
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Exit 

Entry 

Input in fltpt. of no. to left of e or *, 

May be neg. or pos. Also output line 
Exponent of 10 in octal. May be negative 

or positive 

If exponent is zero, goes to exit 

Is floating point number negative? 

Changing fltpt. no. to positive and 
putting negative indicator into is2 

Is 1 > floating point input 
Is 1 = floating point input 
Is 10 > floating point input 

Loop to reduce floating-point 
number to one between 1 and 10 
such that 1 < floating point no. < 10 



U)op to increase floating-point number 
such that 1 £ floating-point no. < 10 
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Is exponent zero? 

Is exponent negative? 

Is 39 > | exponent | 

Is 39 = lexp.l 

Output to zero. Sentence ( 



) 



absolute value of number too small - 
given zero value 
Is (IR7) > (IQ2)? Same printout and 
action as above. 

Dividing IQ2 by 10 and storing in IQ2 

Dividing IQ2 by 10 38 and storing in IQ2 

Is negative value of floating point 

desired? 
Making floating-point output negative 

Is 38 > exp.? 

Is 38 = exp.? 

Jump to error print-out section 

Setting up index for multiplication 

10 — > ISI 

Index jump 

Multiplying 10 to power desired in 
floating-point 

Is exponent negative? 

Dividing fltpt. no. by power of 10 
desired 

Multiplying fltpt. no. by power of 10 
desired 

Is (IQ2) > (IR6) ? If so, too large, 

OQ 

Multiplying by 10 



Sentence ( ) absolute value of 

number too large 
Error routine referenced 

Sentence ( ) absolute value of 

number too small - given zero value 

Warning only 

Clearing is 2 
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for IQ 
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Temporary Storage 

IS Multiplication index 

1 Multiplication storage 

2 Negative answer indicator 
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If String-Out (Tape 3) 



IA 
RJ 



X is 

floating- 
point 
constant 



TP 
EJ 
RJ 
TP 
RP 



6 EJ 

7 EJ 

10 TP 

11 TJ 
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13 MJ 

14 RJ 

15 MJ 

16 TP 

17 RJ 
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22 QJ 
f23 TP 

24 QJ 

25 TP 

26 TP 

27 MJ 

30 TP 

31 QJ 
<; 32 TP 

33 ZJ 
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35 RJ 
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Jump Routine 



TO? 



> 



Sentence — (If) "To" should follow "JUMP" 

TO, Sentence, Statement, line, number, 

No.. Sent.? 
A . 

Are no. of chars, of what should be 
f igure<7? 
Sentence — (If) Incorrectly Written — 

Get next symbol 

Getting line number in proper form and 
storing output 



Is X floating-point constant? 
Is Y floating-point constant? 
Sent to preliminary number comparison 

Is Y fixed-point variable? 

Is Y fixed-point constant? 

Y is a floating-point variable. Call 
word for X constant to VN57 

Jump to end 

Y to floating-point 
Jump to comparison 

Translation of Y fixed-point constant 
to floating-point and storage 



Is X fixed-point constant? 
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Is Y floating-point constant? 

X to floating-point 
Jump to comparison 



Translation of X fixed-point constant 
to floating-point constant and storage 



Is Y fixed-point constant? 

X to octal and storage 
Y to octal and storage 
Jump to fixed-point comparison 



Translation of X excess-three decimal to 
octal and storage 



Translation of Y excess-three decimal 
to octal and storage 



Fixed-point numbers to preliminary 
comparison 

Is Y fixed-point variable? 

X to octal and storage 

Getting call word for X and storing 

X to floating point and storing 
Getting call word for X and storing 

Is X fixed-point variable? 
Is Y floating-point constant? 
Is Y fixed-point co»sta»t? 
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137 


RJ 


IJ116 


IJ107 




Y to octal and storage 


X is 


140 


TP 


VN72 


A 1 






fixed- * 


141 


RJ 


GW 


GWl 






point 


142 


TP 


Q 


VN110 


> 


Getting call word for Y and storing 


variable 


143 


MJ 





IJ160 J 








144 
J45 


TP 
QJ 


VN74 
IJ160 


Q V 
ID122 J 


Is Y fixed-point variable? 




r 146 
147 


TP 
QJ 


VN121 
IJ156 


Q V 
IJ150 J 


Is Y floating-point constant? 




150 
151 


TP 
ZJ 


VN72 
IJ152 


A > 
IJ154 J 


Is Y fixed-point constant? 


X is 


152 


RJ 


IJ52 


IJ42 


Y to floating-point constant 


float^ 


153 


MJ 





IJ/ilfc 




ing 
PQint 


154 
155 


TP 
QJ 


VN74 
ID122 


Q \ 
U160 J 


Is Y fixed-point variable? 


varia- 


156 


TP 


VN71 


A V 

IJ141 f 




ble 


^157 


MJ 





Getting call word for Y and storing 




160 


RP 


30010 


I J162 i 






161 


TP 


VN54 


VN11 L 






162 


RP 


30010 


IJ164 f 


Transfer of prepared data to output region 




163 


TP 


VN105 


VN21 J 






164 


TP 


VN5 


A 






165 


RJ 


IX 


1X1 






166 


RJ 


SY 


SY1 






167 


TP 


SY2 


A 






170 
171 


RP 
EJ 


20004 
UF16 


IJ172 \ 
U166 J 


( ) f ; tests 




172 


EJ 


UF14 


IK 


A . check 




173 


EJ 


UF2 


IU 


"if" check 




174 


RJ 


ID40 


ID34 


Sentence — (if) Incorrectly Written — 




175 


MJ 
CA 



IJ176 


IF 










Preliminary Number Comparison Routine 






IA 


IT 




















1st no. X 




1 











2nd no. Y 




2 


TP 


VN4 


A 






3 


EJ 


UF26 


ITU 


< ? 




4 


EJ 


UF60 


IT14 


= ? 




5 


EJ 


UF61 


IT17 


> ? 




6 


EJ 


UF62 


IT22 


< ? 




7 


EJ 


UF63 


IT25 


t ? 




10 


MJ 





IT30 


> 


< 


11 


TP 


IT 


A 






12 


TJ 


IT1 


IT32 


Change **if" sentence to a "jump"sentenc< 




13 


MJ 





IF1 


Jump back to start of IF 


^L 


14 


TP 


IT 


A 






15 


EJ 


IT1 


IT32 






16 


MJ 





IF1 




> 


17 


TP 


m 


A 
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20 

21 

< 22 

23 

24 

t 25 

26 

27 

> 30 

31 

32 

Changing 33 

IF to a 34 

Jump 

Sentence 35 
36 

37 
40 
41 
42 





1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 
14 
15 
16 
17 
20 
21 



TJ 
MJ 
TP 
TJ 
MJ 
TP 
EJ 
MJ 
TP 
TJ 
TP 
TP 
TP 

TP 
RJ 

TP 
RJ 
RJ 
MJ 
CA 



IA 
TP 
ZJ 

TP 
ZJ 
TP 
ZJ 
TP 
ZJ 
RJ 
MJ 
RJ 

MJ 
TP 
ZJ 
TP 
ZJ 
TP 
ZJ 
CA 



IT 



IT1 

IT 

n 

v/ 

IT 

IT1 



IT 

IT1 

UF63 

UF15 

VN5 

VN33 
ID71 

VN4 

IX 

WT 



IT43 



IT32 

IF1 

A 

IF1 

IT32 

A 

IF1 

IT32 

A 

IF1 

VN 

VN2 

VN4 

VN5 
ID65 



A 

1X1 
WT1 
IF 



} 



Number (6) to 1st line of output 
JUMP put into title output line 
Line number changed to 5th position of 

output 
Pseudo-op indicator to 6th output line 
Sentence — (If) Becomes Unconditional 

Jump to Sentence — 

Line number to reference list 
Write string-out on tape 



Termination Space Period Routine 



IK 

VN5 

IK2 

VN4 

IK4 

VN14 

IK6 

VN24 

IK10 

WT 



ID77 



VN10 

IK 

VN7 

IK20 

VN6 

IK 

IK22 



A 
IK12 

A V 
IK12 J 

A 

IK12 

A 

IK12 

WT1 

IF 

ID73 



> 



} 
} 



IF 

A 

JF14 

A 

IK12 

A 

IK12 



y 
} 



Has a 1st number been filled in? 
Has a 1st relation been filled in? 
Is there a call word for X? 

Is there a call word for Y? 

To write completed data on tape 
Exit 

Sentence — (If) Space period occurs 
before sufficient data given 

Has a 3rd no. been filled in? 

Has a 2nd no. been filled in? 

Has a 2nd relation been filled in? 



2nd Control Routine 



Initial 
Control- 
2nd or 
3rd time 
thru 



IA 
TP 
TP 
RP 
TP 
TV 



IU 

VN56 

VN107 

10015 

UF7 

IU33 



VN43 

VN74 

IU4 

VN150 

JC 



Abs. sign of X to more convient location 
Abs. sign of Y to more convient location 
Clearing region of temporary Storage 

Setting up divider routine for 2nd or 
3rd time thru 
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5 
6 
7 
10 
11 
12 
13 
14 
15 
16 
17 
20 
21 
22 
23 
24 
25 
26 
27 
30 
31 

32 
33 



Constant 
8c Fix-Pt. 
Var. 

Routine - 
2nd or 
3rd time 
Thru 




1 
2 
3 
4 
5 
6 
7 

10 
11 
12 
13 
14 
15 
16 
17 
20 
21 
22 
23 
24 
25 
26 
27 



RJ 
TP 
TP 
TP 
EJ 
EJ 
EJ 
EJ 
TP 

QJ 
TP 

QJ 
TP 

QJ 
RJ 
MJ 
TP 
QJ 
TP 
MJ 
TP 

MJ 



CA 



SY 

SY2 

SY2 

SY3 

UF4 

UF3 

UF17 

UF14 

SY11 

IY 

SY10 

IY33 

SY7 

JB 

ID 16 



VN151 

IU5 

UF27 



UF27 



IU34 



SY1 

A 

VN1521 

VN153J 

IU25 

IU31 

IU5 

IK14 

Q V 
IU17J 

Q > 
IU21J 

\ 
IU23J 

ID13 

IU5 

Q > 
IU27 1 

VNisor 

IU5 J 
VN151 

IU5 
JC3 



Get next symbol 

Store 1st two symbol words in temporary 

storage 
-? 
I? 
I? 
A. termination 

Is symbol a constant? 

Is symbol a fixed-point variable? 

Is symbol a floating-point variable? 
Sentence — (If) Symbol Rejected — 

Negative sign if no previous absolute sign 



Absolute sign indicator to temporary 
location 



2nd Constant and Fixed-Point Variable Routine 



IA 
TP 
ZJ 
TP 
ZJ 
RJ 
TP 
EJ 
EJ 
EJ 
EJ 
TP 
QJ 
TP 
MJ 
TP 
RJ 
MJ 
RJ 
TP 
EJ 
MJ 
RJ 
TP 
EJ 



IY 

VN47 

IY4 

VN100 

IY4 

SY 

SY2 

UF 

UF1 

UF4 

UF5 

SY11 

IY14 

SY2 



UF27 

SY 



SY 

SY2 

UF22 



SY 

SY2 

UF25 



j 



} 



A 

IY2 

A 

IY33 

SY1 

A 

IY4 

IY21 

IY16 

IY16 



IDUO. 

VN155 

IY33 

VN154 

SY1 

IY12 

SY1 

A 

IY25 

ID42 

SY1 

A 

IY31 



} 



Did X have a number in scientific notation? 

DidY have a number in scientific notation? 
Get next symbol 

e? 
*? 
-? 
-? 

Constant? 

Exponent to storage 

Negative sign indicator (40 0) to storage 
Get next symbol 

Get next symbol 

10? 

Get next symbol 

POW? 
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30 


MJ 





mo 


31 


RJ 


SY 


SY1 


32 


MJ 





IY10 




RJ 


JBI7 


JB6 "1 
ID13 r> 


34 


RJ 


ID16 


35 


MJ 





IY33 J 




CA 


IY36 





Get next symbol 



Termination check loop 



2nd Floating-Point Variable Routine 







IA 


JB 








Ov\r\ av n 


DT 

Lxxr 


TA 


TA1 


j-O a juiijvx ah vviiw i 


T i* e+ 9 

i-i J. S w • 


3rd time 1 


MJ 





JB32 


Not in 




thru 2 


TP 


UF36 


A 


Is in 




3 


TJ 


TA4 


JB37 


Go to subscripted 


variable portion 


Nonsub- 4 


RJ 


JB17 


JB6 






script- r 5 


MJ 





JB24 






ed var- 


6 


RJ 


SY 


SY1 


Get next symbol 




iable 


7 


TP 


SY2 


A 








10 
11 


RP 
EJ 


20004 
UF16 


JB121 
JB6 J 


) ( t ; tests 




Termi- < 


12 


EJ 


UF3 


JB20. 


Abs. sign test 




nation 
Loop 


13 
14 


RP 
EJ 


20004 
UFIO 


JB15 L 
JC J 


< > = not tests 






15 


EJ 


UF15 


JF 


JUMP? 






16 


EJ 


UF14 


IK14 


A. 






Ll7 


MJ 





30000 






20 
21 


TP 

QJ 


VN151 
JB6 


\ 
JB22J 


Has open absolute 


sign been given? 




22 


RJ 


ID56 


ID52 


"Sentence — (If) 


Open absolute si 



23 



MJ 



JB6 



24 


TP 


SY7 


Q V 


25 


QJ 


JB4 


JB26J 


26 


ir 


SYII 


Q \ 
JB30J 


27 


QJ 


JB4 





30 


RJ 


ID16 


ID13 




31 


MJ 





JB4 




32 


RJ 


TS 


TS1 


Not in 


33 


MJ 





ID110 


Is in 


34 


TP 


UF34 


A 1 




35 


TJ 


TS3 


JB37J 




36 


MJ 





JB4 


Sub- 


&7 


TV 


JB60 


JB55 


scripted 


40 


TP 


UF60 


JB61 


variable 


41 


RJ 


JB17 


JB6 




42 


TP 


SY11 


Q 1 




43 


QJ 


JB50 


JB44J 



missing" Error routine reference and 
continuation of analysis 

Is symbol a variable? If either a variable 

or constant, it is 

Is symbol a constant? assumed to be re- 
dundant argument 
of a single valued 
function and no 
notice is taken 
of it 

Sentence — If Symbol Rejected — 

Is symbol in pseudo-op list? 
Sentence — (If) Set of variables differs 
from Initial Set 

Is variable subscripted? 

No 

Sett lag up v of storage subrout ine 

Setting up index 

Termination check 

Is symbol a constant? 
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44 
45 
46 
47 
50 

51 
52 
53 
54 
55 
56 
57 
60 
61 



TP 
QJ 
RJ 
MJ 
RJ 

IJ 

RJ 

RJ 

MJ 

TP 

RA 

MJ 





CA 



SY10 

JB50 

ID16 



JB57 

JB61 

JB17 

ID 16 



SY2 

JB55 







JB62 





JB46 

ID13 

JB41 

JB55 



} 



JB41 
JB6 ) 
ID13f 
JB52J 
JVN156JI 
UF6 > 
30000J 
VN156 




Is symbol a fixed-point variable? 
Sentence — (If) Symbol Rejected — 

Storing const, or fix.-pt. var. XS3 

representation 
Index jump to start of loop 

Termination check loop 
Storage subroutine 



Index temporary 



Relation 
Symbol 
Routine - 
2nd or 
3rd time 
thru 



Jump 
Routine- 
2nd or 
3rd time 
thru 





1 
2 
3 
4 

5 
6 
7 
10 
11 
12 
13 
14 
15 
16 
17 
20 

21 
22 

23 



IA 
RJ 
RJ 

MJ 
TP 
TP 

RJ 
TP 
RP 
EJ 
TP 
RA 
MJ 
EJ 
RP 
TP 
RP 
TP 

TP 
TJ 

MJ 
CA 



IA 
TU 
TU 
TV 
RJ 
TU 
TU 
TV 
RJ 



JC 
JC 

ID40 


A 
UF6 

SY 

SY2 

20003 

UF10 

A 

VN162 



UF13 

30015 

VN150 

10015 

UF7 

ViN142 
UF26 


JC24 



JF 

JF156 

JF160 

JF154 

JF153 

JF157 

JF161 

JF155 

JF153 



JC3 \ 

ID34J 

IF 

VN163 

VN162 

SY1 

A 

JC141 

JCllJ 

VN164 

UF6 

JC15 

JC1 

JC17 \ 

VN130J 

JC21 1 

VN150J 

A 
IU6 

IU5 



} 



Sentence — (If) Incorrectly Written — 

1st relation symbol to storage 
Starting count in counter of relation 

symbols 
Get next symbol 

<> = ? 

2nd relation symbol to storage 
Count of relation symbols increased 

Is 2nd symbol NOT? 

Transferring data of X 2 to VN130-144 

Clearing VN150-164 for use of Y 2 data 

accumulation 
Is 2 > no. of relation symbols, some 

value of SY2 hasn 't yet been identified 

and stored 
Return to gather data on Y 



2nd Jump Routine 



JF145 
JF146 
JF147 
JF144 
JF145 
JF146 
JF147 
JF144 



Check if X 2 = X 



Check if Y 2 = Y 



720 



10 



RJ JI 



JI1 





11 


TP 


VN130 


A 




12 


EJ 


VN55 


JF16 




13 


TP 


VN150 


A 




14 


EJ 


VN106 


ID3 




15 


MJ 





JF41 




16 


TP 


VN150 


A 




17 


EJ 


VN106 


JF57 




20 


MJ 





ID3 




21 


TU 


JF156 


JF145 




22 


TU 


JF161 


JF146 




23 


TV 


JF155 


JF147 




24 


RJ 


JF153 


JF144 




25 


TU 


JF157 


JF145 




26 


TU 


JF160 


JF146 




27 


RJ 


JF153 


JF144 




30 


RJ 


JI 


JI1 




31 


TP 


VN130 


A 




32 


EJ 


VN106 


JF36 




33 


TP 


VN150 


A 




34 


EJ 


VN55 


ID3 




35 


MJ 





JF57 




36 


TP 


VN150 


A 




37 


EJ 


VN55 


JF41 




40 


MJ 





ID3 




41 


TP 


VN7 


A \ 
JF46J 


Beversal 


42 


ZJ 


JF43 


of re- 


43 


TP 


UF63 


A 1 


lation 








[ 


symbols 


44 


ST 


JH23 


JI123I 


due to 


45 


MJ 





JF57 


changing 


46 


TP 


VN6 


A \ 
JF53J 


of signs 


47 


ZJ 


JF50 


or alter- 


50 


TP 


UF63 


A 1 


ing of 








Y 


position 


51 


ST 


VN6 


VN6 J 


of X & Y 


52 


MJ 





JF57 


the 2nd 


53 


TP 


VN65 


A I 


or 3rd 


54 


EJ 


UF26 


JF43J 


time 


55 


TP 


UF24 


A 


thru 


56 


ST 


JI123 


JI123 



Checks consistency of relation symbols 
and assigns code figures 

1st left sign = 2nd left sign X2(s)=X(s) 
1st left £ 2nd left X 2 (s) f X(s) 
Inconsistent sign change Y2(s) = Y(s) 
Double sign inequality. Relation reversal 

needed. Y2(s) £ Y(s) 
Y2(s) = Y(s) 
Sign of 2nd rt. = sign of 1st rt. Signs 

O.K. Reversal of relation not needed 
Inconsistent sign change. Y2 f- Y 



Left = Right. Check if X = Y 2 



Right = Left. Check if Y = X2 
Checks consistency of relation symbols 
and assigns code figures 

Sign follows group equality #1 
X 2 (s) = Y(s) 

X 2 (s) ¥ Y (s) 
Inconsistent sign change Y?(s) = X(s) 
Y2(s) f- X(s) Double inequality of signs 
and reverse equality of no. series 
means relation reversal not needed 

Y2(s) = X(s). Sign follows group reverse 
equality 2nd time. Relation reversal 
needed 

Inconsistent sign change. Y2(s) f- X(s) 

Is line no. for 2nd test in output? 

Reversing relation of single symbol in 
temp, storage 6-£,3,43 = {4 t 3 t 2} 



Is 2nd test line f 0? 

Reversing relation of 2nd test line. 
6-{2,3,4>={4,3 f 2} 



Was 1st test a double relation test? 
12 -{5 t 6 f 7>={7 f 6;5> 
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Check of 
consis- 
tency of 
relation 
symbols 



r 



Loop to 
get line 
number 



57 
60 
61 
62 
63 
64 
65 
66 
67 
70 
71 
72 
73 
74 
75 
76 



77 

100 

101 

102 

103 

104 

105 

106 

107 

110 

111 

112 

vll3 

114 

115 

116 

117 

120 

121 

122 

123 

Exit 124 

loop fl25 

after J 126 

final 1 127 

line no.y30 

is ob~ 131 

tained fl32 

133 

134 

135 

136 



137 



vj 



140 



TP 
ZJ 
TP 
ST 
ST 
EJ 
MJ 
TP 
ZJ 
EJ 
MJ 
TP 
ST 
EJ 
MJ 
RJ 

TP 
EJ 
RJ 
TP 
RP 
EJ 
EJ 
TP 
TJ 
RJ 
MJ 
RJ 
MJ 
TP 
RJ 
TP 
RJ 
TP 
ZJ 
TP 
ZJ 
TP 
RJ 
EJ 
EJ 
MJ 
TP 
RJ 
RP 
EJ 
EJ 
TP 



Exit 
loop 

after * 
line no. 
for VN7 
is ob- 
tained. 
May be 
start of 3rd 
time thru if an 
"if** is recognized 



VN7 

JF61 

UF50 

VN4 

VN6 

JI123 



VN6 

JF70 

VN4 



UF50 

VN4 

JI123 



SY 

SY2 

UF51 

ID63 

SY2 

20007 

UF51 

UF14 

SY5 

UF23 

ID40 



SY 



SY2 

LN2 

LN3 

IX 

VN6 

JF122 

VN7 

JF124 

LN3 

SY 

UF16 

UF14 



LN3 

SY 

20004 

UF16 

UF14 

UF60 



EJ UF2 



MJ 



} 



Is line no. for 2nd test zero? 

[9 - (VN4) - (VN6)] = (JI123) 

Symbol OK. Can get on to rest of jumps 
now 

Is 2nd test line = 0? 

Is (VN6) = (VN4)? 

[9 - (VN4)] should equal (JI123) 

Comparison symbols ambiguous 
Start of procedure to get line no. 
Getting next symbol 



Is symbol TO 

TO should follow Jump 



(Warning) 



Is symbol TO, SENTEN, STATEM, LINE, 

NUMBER, NO., SENT.? 
A. test 

Is 7 > no. of chars. 

Incorrectly Written — 

Exit 

Get next symbol 

Getting line number in standard form 

Sending line number to reference list 
Is 2nd test line zero? 

Has a line number already been put in VN7? 
Line number to unconditional jump line 

) ? 

A. routine of 2nd or 3rd time thru 

Incorrectly Written 

Line no. to VN7 

) ( , ; ? 

A . test? 

Putting indicator n 3™ in output to in- 
dicate there are to be 3 clauses 

Start of 3rd time thru with recognition 

of "IF" 
Incorrectly Written — 
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142 
143 
144 
145 
146 
147 
150 
151 
152 
153 
154 
155 
156 
157 
160 
161 
162 



EJ UF60 
MJ 
TP UF65 
TP [VN43 ] 
EJ [VN131] 
MJ 

JF145 

JF146 

JF162 







VN43 

VN74 

VN131 

VN151 



JF163 



RA 

RA 

IJ 

MJ 















CA 



IK12 f 

IK16 

JF162 

A 

JF150 

JF21 

DF42 

UF42 

JF145 

30000 J 

JF21 

ID110 













Is this the third clause being analyzed? 

Index set up 

Check if storage of data for a constant 
or variable is equal to same data 
gathered for one on the first part of 
an *»if w sentence 



X absolute 
Y absolute 



Index temporary storage 
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VARY Translation Routine 

The VARY translation routine builds from the input VARY sentence the 
required lists of symbols for generating the VARY coding and for providing the 
necessary connections so that the stated looping processes can be accomplished. 
These lists are called the VARY String-out, the VARY File, and the Variable 
List. In addition to these tasks, this routine makes appropriate checks, 
where possible, for the writing of VARY sentences containing non-ending loops. 
It also checks for compatibility of fixed- or floating-point variables and 
constants within a Modify Component of a VARY sentence. 

String-Out Form for VARY Sentence 



WLO 
1 
2 
3 
4 
5 
6 
7 

10 

11 

12 

13 
14 
15 
16 

17 

20 

21 

22 



OOOOOOOOOttt 

V A R Y7777 

OOOOOOOsssss 
OOOOOOOOOOyy 



00000000000 

oooowxooooo 

Call word~ Call word, 



'0 



'0 



Call word 
q„ Call word 2 
q„ Call word„ 
W 

1 



Call word. 
Call word. 
Call word. 



pi 

1 



q 2 u 

qj ° 



CW 

cw 

CW 

cw 





,1 



cw 

cw 
cw, 
cw 



ttt = number of words in string-out 

Sentence number in standard form 

XS-3 sentence identifier 

sssss = sentence call word 

YY = number of WITH words (max. 17J 

Sentence number of first in range 

Sentence number of last in range 

Sentence number of transfer, if 

stated (zero otherwise) 
r = 4 if WL7 is RESUME number (zero 

otherwise) 
WX = indicator for tests of first 

variable 
Variable. P=4 if call wordo is 63 

and floating, (zero otherwise) 
Initial value-j q . =4 if absolute val . 

> ue is specified (ex- 



Increment 
Limit 



cept constants) 



WX indicator for tests of second 

variable 
Variable 



Initial value 
Increment 
Limit j 



P and q^ have same 
meaning as above 



Additional 5 word 
components as re- 
quired 
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The WX indicators in the String-out provide to the VARY generator the 
information required so that the necessary tests, if any, may be built to guard 
against indefinite loops within the VARY cycle. These indicators may be 
explained by the modify component. 

VARY a a(b) c 

where a denotes the fixed or floating variable, and a, b, and c are fixed- or 
floating-point variables and /or constants. 

Then, WX = 00 if a, jj t an( j c are a n constants. No test coding will be 
generated 

WX = 10 if a and/or c are variable and b is a stated constant > 0. 

WX = 14, if a and/or c are variable and b is a stated constant < 0. 

WX = 20, if b is a variable, and a and c are constants such that 
c-a > 0. 

WX = 21, if b is a variable, and a and c are constants such that 
c-a< 0. 

WX = 22, if b is a variable, and a and c are constants such that 
c-a = 

WX = 30, if b is a variable, and a and/or c are variable. 

Since the test coding that is built by the VARY generator for all cases 
except WX = 00 is only executed at the beginning of the looping process, none 
of the variables a , b, or c may be changed by other sentences within the 
VARY 's range. In order to check that these variables are not altered by their 
appearance in other Modify components of this or other VARY sentences, or in 
COMPUTE sentences, or on the left of equations, the Variable List is built by 
the VARY translator. This list consists of three word entries for each modify 
component of VARY sentences. These entries remain in the list only until the 
translation process has progressed beyond the range of the VARY. 

Example: VARY X 0(1)Y with J I(K)100 Sentences 10 thru 20 . 

After the insertion of the 2 three-word items for this sentence, the Var- 
iable List would appear as follows: 
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VLO 



3 word 



3 word 



item < 
item < 



address counter address counter 



XS-3 for X 



OOOOOOOOOOOO 

<= XS-3 for Y > 

< XS-3 for J > 

< XS-3 for K > 

OOOOOOOOOOOO 



Previous entries in 
^the list, if any 



For constant 1 



For constant 100 



When a constant appears for b. or £ in the Modify component, the corre- 
sponding word in the Variable List is cleared. 

The three-word items entered for the above sentence remain in the list for 
checking by the COMPUTE and Equation translators until sentence 20 has been 
processed. Then the VE routine of the Translation subroutines removes these 
items from the list. 

The first entries into the VARY File are also made by the VARY translator. 
This file is used later, to: 

1. Determine when items are to be removed from the Variable List. 

2. Provide exits from VARY sentences when transfer components are not 
stated. 

3. Establish the continuation of the VARY loop from the last sentence 
in its range. 
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A VARY File item consists of two words for each VARY sentence: 



X [ Y 



CW, 



CW< 



Sentence number of last sentence 
in range. 

CW 2 - c aH word of VARY sentence. 
CWj = Call word of sentence to 

which exit is made. 
Y(4 bits) = number of WITH words. 
X(2 bits) = 10 if exit is normal 

transfer. 
= 11 if exit is RESUME 

of previous VARY. 

All entries in the VARY File item except CWl and X are made by the 
VARY translator. The item is completed later by the VE routine of the 
Translation Subroutines (see Section III, 3, a). 
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Error Print-Outs Used in VARY Translator 

ZA is not a variable symbol. 

ZB Format error i.e., no parenthesis. 

ZC Inconsistent use of fixed or floating point operands. 

ZD Minus sign illegal prefix to variable. 

ZE Inconsistent use of absolute value signs. 

ZF type symbol is illegal in scientific notation format. 

ZG Illegal scientific notation format. 

ZH Change modifiers to eliminate infinite loop. 

ZI The number of modifier components exceed 15. Rest of sentence not checked 

ZJ Misspelling or no referenced sentence. 

ZK No space period symbol. 

ZL Incomplete sentence i.e. f no (range)component. 

ZM Variable must not change values within VARY loop. 

ZN Error in transfer component. 

IN Disallowable character in exponent 

IQ [Absolute value of number too small - given zero value 
^Absolute value of number too large 



NV 



Too many vary sentences in program. 
VARY must not be last sentence in range of any VARY. 
. Range of inner VARY extends beyond range of outer VARY 



Vary Translator Flow Charts 



-si 

to 



Yes 



Preset program 
zeroize WL4-WL10 



XV 



Pick up variable!^ 
assign or find C/W 
and send to Temp.© 
It 



Preset location 
necessary for 
reentrance. 



IV 



Build indicator 
on basis of infor- 
mation concerning 
operands stored in 
VT20-VT26. Send 
indicator to Temp.(T| 



Test operands PV 
in modifier for 
infinite loop 
design 



Move stored SV 
values in Temp. 
@.- Temp. @ to 
string-out 



Test for 'with* and 
tally in WL4 



Pick up initial value [FV 
of modifier. Determine if 
variable or constant (set 
indicator i^VT*). Assign 
or find C/W and send to 
Temp. @ 



Build a Variable ListlDV 
containing variable, 
incrementing operand, 
and limiting operand of 
modifier component 



VARY String-Out Control Flow 



Pick up incrementing I BV 
value of modifier. Deter- 
mine if variable or con- 
stant (set indicator in'VT*! 
Assign or find C/w and send 
to Temp. 14 



Pick up limiting value 
of modifier. Determine 
if variable or constant 
(set indicator in'VT*). 
Assign or find C/W and 
send to Temp. @ 



CV 



No 



Exit/' Process range and 
** transfer components 



Error Return 
RJ VT VT1 



Note: 


In F] 


Low charts that follow 




a 


refers to variable, 




SL 


refers to initial value, 




Jb. 


refers to increment, 




_c 


refers to limiting value, 




as 


VARY a a(b)c. 



a Region 



Get next symbol 



Illegal variable 
type symbol 

1 

Error Routine 



NO 



Test for letter 
QJ (SY7) 



YES 



Alarm print-out 
then proceed 



NO 
< — 



Check variable 
type symbol 
RJ RH RH1 



YES 



Search DP List 
L(SY2) 
RJ TS TS1 




Exit 



Found 



Found 



Not found 



Search CB List 
for L(SY2) 
RJ TA TA1 



Not found 



YES/ Test for fixed or 



Assign 64 type C/W *Z% fUpU QJ (sn0) 



Send symbol and 
C/W to CB List 



NO 




Set op position 
of Temp, (L2) 



NO 



T 




Test for fixedNyES 
or fltpt. ) — >f Exit 
(SYIO) QJ 



YES 




Test for 

pseudo op 

QJ (TS4) 



NO 



f Exit] 



^ Assign 65 type C/W 



f Exit J 
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First value region *a 



FV 



Set f 40' in op. of 
Temp. @ 



Yes 



Save SY10 in Temp.(l) 
Fixed or fit pt, 
indicator 



Get next symbol 



"Test (I) absolute 
value sign 



No 



No 



(Exit J 



Set flag (3)to 40 
minus indicator 



Test (-) \ Yes 

"""" J 
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Increment Region *b | BV 



Get next symbol 



Yes /Test Temp. (3) for ( 



No 



Test SY2 for ( 




Yes 



Get next symbol 



No 



Test for (-) 



Test for (I) (SY2) \ Yes 



Set "OP" portion to 
40 Temp. @ 




No 



( Exit J 
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tr* 



Bound Phase or Region f C 



CV 



Get next symbol 



Yes / Test Temp (3) for ) 



V. 



y 



No 



Test SY2 for ) 



No 



Yes 



Get next symbol 



Test for (I) 



No 



Test for (-) 



No 



( Exit ) 



ERROR no close paren, 



Yes 



Set "OP" portion to 
40 Temp. @ 



Yes 



Set flag (3 
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-4 

CO 



Get next symbol 
RJ SY SY1 



Send SZ2-SZ12 to 
ZZ2-ZZ12 



Save SY2 

in Temp. (3) 



Test for 
absolute value 
sign "J" 



Yes 



Test asterisk\ No 



Test for 



Get next 
symbol 



No 



Test for: "(", 
")" with, sentence) 



Test Temp © 
Q jump 



k Yes 



Error a is -fixed pt. 
or illegal symbol 



No 



Test asterisk 



Tes 



It*" 



Scientific notation 
routine after detecting 
"*" : UV 



Yes 



No 



Test for "E' 



Yes 



Scientific notation 
routine after detecting 
n E" : TV 



No 



ERROR 

Illegal symbol 

ZF 



> 



Send ZZ2- ZZ12 
to SY2 - SY12 



Yes 



Test for float- 
ing point con- 
stant RJ RB RBI 



Error No absolute 
value sign should be 
detected 




No 



Test WL13 
Q jump 



Yes 





Send converted value 
to IQ2-*>Temp. (t) 



Scientific Notation to 
floating pt. RJ IQ 
101 RJ GG2 GG 



Vary Translator Flow Charts - HV-Constant Branch 



Fixed or floating point 
constant branch 



JV 



ZZ2 to ZZ12 
SY2 to SY12 



Yes 



f Test for fixed or 
-(fltpt. QJ Temp (\) 



No 



Test for fixed pt. 
Constant RJ RD RD1 



Convert XS-3 
to octal 
RJ RS2 RS 



Yes 




Test flag 3 (-) 
indicator 



No 



TP RS3 to 
Temp T 



TN RS3 to 
Temp T 



Set flag 3 
to zero 



Test floating pt. 
constant RJ RB RBI 



Convert XS-3 
to floating 
pt. RJ GG2 
GG 



Test flag 3 (-) 
indicator 



TP GG3 to 
Temp T 




Set flag 3 
to zero 



Yes 



TN GG3 to 
Temp T 
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Exit for Constant Branch 



Magnitude of constant 
to Temp (4) 



Error ZE 



WV 



Yes / Test Temp U3) for 



absolute value 



No 



Temp(T) — >Temp0 
(input for VT) 



No 



§et up reference table 
RJ VT VT1 



Temp (T)= Constant to 
A & search constant pool 
RJ GW GW1 



Insert C/W into 
Temp £3) 



Test Temp @ for "40' 
(absolute indicator) 



Yes 



Get next symbol 



'est XS3 absolute 
value sign 



Yes 



Set "OP" of Temp @ 
to zero 



No 
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I PV I Preface for Indicator Region 





variable? J ^-^ 



^ i\Q 



b = 0? V^4h 



Error print: 
Infinite loop 



No 



a-c = 0? 



Yes 



Exit 



W 




a _c< ?P^V b >0? ^ Ye 



No 



No / b > 0? \ Ye i 



No 




Error print: 
Infinite loop 



stant ) 3\ / 

v 
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-1 

CO 
CD 



Set bit 4 

of 
indicator 




IV Build Indicator WX 



No /^Is "b" > 
variable? 



Yes 



Set bit 5 
of 
indicator 



+6 



Yes 



variable? 



$ 



No 



Yes ( Is "^ 

[ variable?/ 




No 



Exit/ Yes A *? > 
indicator 



= 0? 



No 



*6 



s bit 
^(5 of indi- 
cator set? 



Yes 



Set bit 1 of 
indicator 




Is c-a 
0? 



Yes 



Set bit 2 of 
indicator 



No 



Is bit 
(4 of indi- 
cator set? 




Set bit 3 
of indicator 
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Detection 01 ^Uasteriskj proceedings 



uv 



Exit 



TP ZZ2 GG4 
TP ZZ3 GG5 


v 


RG GG2 GG 


N 


' 



f Test * 



Yes 



Get next symbol 



cxii 



Test flag (3) ) No ^ 



Yes 



Preset flag Q 



TN GG3 IQ2 



Exit 



TP GG3 IQ2 



Yes 



Get next symbol 



Routine for 
"E" 



Yes fTest POW 
XS3 



No 



No 



f Test 
\ superscript 



Yes 



Get next 
symbol 



Send XS3 dec. 
1 to RS4 



Convert XS3 
to oct. RS2 RS 



l 



Exit 



TN RS3 IQ3 

: % 



Convert XS3 dec. to 
octal RS2 RS 



JTest XS3 "10" \__Np__» Error 



Error 



Yes 



Superior to lower* 
case translator of 
figures SY2~>RJ 

IN INI 



Yes 



/"Test for super- X 
script (-) (SZ) ] 



es 



No 



Superior to lower 
case translation 
of figures SZ2 — > 
RJ IN INI 



TP RS3 IQ3 



Exit 
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Detection of "E" Procedings 



TV 



Enter 



Get next 
symbol 



Test minus sign 



Get next 
symbol 



: Yes ( Test pos. sign 



Check fxd pt 
constant 
RJ RD RD1 



No 



Convert XS3 
to octal 
RS2 RS 



TP RS3 IQ3 



v 
Exit 



Yes^ G 



Jet next 
symbol 



Exit 

_L 



TN RS3 IQ3 
fl 



Convert XS3 
to octal 
RS2 RS 



Check fixed pt 
constant RJ 
RD RD1 
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~4 





as vary file 
exceeded its 
maximum? 



No 



""Is current vary 
sentence wi 
subprogr 



Dun 
W nu 
e + 



Yes 




Is current sen^v N 

tence = sentence \ » 

number in vary ) 

file? y 



<E> 



Advance 
00 by 
two 



Set parameter to 
print: TOO MANY 
VARY SENTENCES 



Set parameter to 
print: RANGE OF 
INNER VARY EX- 
TENDS BEYOND 
RANGE OF OUTER 
VARY 



Advance vary 
file word 
count by two 




Enter vary file 

th sentence 
lumber of last 
statement in range 



Insert vary call 
word and number of 
'with' words into 
vary file 



-© 



Is sentence num- 
ber at address given 
by (?""),> sentence num 
ber at address qive: 
by (or)? 






as there been 
a previous vary 
in a subprogram^ 



No 



Yes 




•© 



Set indicator and 
length of vary 
files for vary sen- 
tencejinmain program 



<D 




Set parameter to 
print: VARY MUST 
NOT BE LAST IN 
RANGE OF VARY 




Vary Translator Flow Charts - Build Vary File 



(<o 


= Address of last un- 




closed item in vary 




file. 


(r) 


= Address for inserting 




next item in vary 




file. 



Regions-VARY Translator 



RE 


MC4400 


RE 


LV4566 


RE 


VV4635 


RE 


FV4650 


RE 


BV4663 


RE 


CV4704 


RE 


GV4725 


RE 


HV5040 


RE 


JV5117 


RE 


WV5151 


RE 


DV5214 


RE 


PV5243 


RE 


IV5310 


RE 


SV5362 


RE 


VZ5417 


RE 


UV5433 


RE 


TV5465 


RE 


EV5506 


RE 


VT5521 


RE 


PL5553 


RE 


ID5613 


RE 


IM5743 


RE 


IN6057 


RE 


106107 


RE 


IQ6136 


RE 


IR6265 


RE 


ZA6277 


RE 


ZB6314 


RE 


ZC6330 


RE 


ZD6347 


RE 


ZE6364 


RE 


ZF6401 


RE 


ZG6423 


RE 


ZH6437 


RE 


ZI6455 


RE 


ZJ6500 


RE 


ZK6521 


RE 


ZL6533 


RE 


ZM6551 


RE 


VP6573 


RE 


VQ6633 


RE 


VS6647 


RE 


NV6655 


RE 


IS6711 


RE 


ZZ6714 


RE 


SC6726 
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DP 


H'UIL 1 


RE 


XV6730 


RE 


XU6735 


RE 


ZN6760 



Translation Subroutine regions are also needed to assemble the VARY 
Translator tapes. 

Also included, in the reco tapes of the VARY Translator are ID (130q 

lines in length), IM(114 ), IN(30 o ), EX27J, 1QQ27J. IR(12J. and IS (a set 

o o o o o 

of 3 addresses used as temporaries). With one 2-line exception, this reco 
coding is identical to the regions similarly named in the IF String-Out where 
they are annotated and reproduced in this manual. 

The 2-line exception is: 

IA ID3 

RJ DV DV1 Build Variable List File 

MJ MC40 Jump back to vary Translator Control 

CA ID5 
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Master Control for Vary Translator 





IA 


MC 







MJ 





CT 


1 


MJ 





XV 


2 


RJ 


vv 


Wl 


3 


RJ 


FV 


FV1 


4 


TP 


SY11 


Q ) 


5 


QJ 


MC6 


MC12J 


6 


RJ 


HV 


HV1 


7 


RJ 


JV 


JV1 


10 


RJ 


WV 


WV1 . 


11 


MJ 





MC13 


12 


RJ 


GV 


GV1 


13 


RA 


PL10 


PL2 


14 


RJ 


BV 


BV1 


15 


TP 


SY11 


Q 


16 


QJ 


MC17 


MC23 


17 


RJ 


HV 


HV1 


20 


RJ 


JV 


JV1 


21 


RJ 


WV 


WV1 . 


22 


MJ 





MC24 


23 


RJ 


GV 


GV1 


24 


RA 


PL10 


PL2 


25 


RJ 


CV 


CV1 


26 


TP 


SY11 





27 


QJ 


MC30 


MC34 


30 


RJ 


HV 


HV1 " 


31 


RJ 


JV 


JV1 


32 


RJ 


WV 


WV1 , 


33 


MJ 





MC35 


34 


RJ 


GV 


GV1 


35 


RJ 


DV 


DV1 


36 


RJ 


PV 


PV1 


37 


RJ 


IV 


IV1 


40 


RJ 


SV 


SV1 


41 


TP 


PL33 


A 


42 


EJ 


MC154 


MC47 


43 


EJ 


MC152 


ZL1 


44 


EJ 


MC153 


MC54 


45 


RJ 


SY 


SY1 


46 


MJ 





MC42 


47 


RA 


WL4 


PL1 


50 


TJ 


MC155 


MC52 


51 


MJ 





ZI1 


52 


RJ 


vz 


VZ1 


53 


MJ 





MCI 


54 


RJ 


SY 


SY1 


55 


TP 


SY11 


Q 1 


56 


QJ 


MC57 


ZJ1 i 


57 


TP 


SY2 


LN4 1 



Jump out for correction; then process 
Test duplication of variable 
First value region or 'a* 
Test for digit or decimal pt. 



Constant branch 



Variable branch 
Increase CTR+1 — »CTR 
Increment region or *V 



Constant branch 

Variable branch 
Bound phase or *V 

Constant branch 



Variable branch 

Build Variable File 

Build preface region to indicator 

Build indicator 

Mover region 

Possible WITH or SENTEN 

Test WITH 

Test A. (Incomplete sentence) 

Test SENTEN 

Get next symbol 

Go back & test for (WITH, A. , SENTEN) 

Test no. of WITH words < 17 Q 

Presetting region 

Continue processing modifiers 

Get next symbol which should be digit 

Is it digit? No-» Error 



744 



60 


RJ 


LN2 


L 
IN J Put line number in proper form 


61 


TP 


LN3 


WL5 


Line number — > string-out 


62 


TP 


LN3 


A 1 




63 


n t 


IX 


1X1 J Put line number in IZ list 


64 


RJ 


SY 


SY1 




65 


EJ 


MC146 


MC70 


Test THRU 


66 


EJ 


MC147 


MC70 


Test THROUGH 


67 


MJ 





MC157 


Jump out to Test A . 


70 


RJ 


SY 


SY1 


Look for sentence number 


71 


EJ 


MC153 


MC70 


Test SENTENCE 


72 


TP 


SY11 


Q I 


73 


n.T 


MC74 


ZJI 


Test sentence number 


74 


TP 


SY2 


LN4 ' 




75 


RJ 


DM2 


LN J Put line number in proper form 


76 


MJ 





MC163J. -» TP LN3 WL6 insert 


77 


RJ 


IX 


1X1 } 


Put line no. in IZ list 


100 


MJ 





MC102 




101 


TP 


WL5 


WL6 


THRU - THROUGH, not detected 


102 


RJ 


SY 


SY1 




103 


EJ 


MC152 


MC136 


Test W A. W 


104 


EJ 


MC151 


MC122 


Test "T0 W 


105 


EJ 


MCI 50 


MC107 


Test RESUME 


106 


MJ 





XU10 


Jump for correction 


107 


RJ 


SY 


SY1 " 




110 


EJ 


MC153 


MC107 


Test SENTENCE 


111 


TP 


SY11 


Q 


J Test for digit 


112 


QJ 


MCI 13 


ZJI 


113 


TP 


SY2 


LN4 




114 


RJ 


LN2 


LN 


SB 1 

5 [• Process line number 

w Line number— > string-out 


115 


TP 


1^3 


WL7 


116 


TP 


LN3 


A 


03 i 

J Line number — > list IZ 


117 


RJ 


IX 


IX 1 


120 


TP 


PL4 


WL10 . 




121 


MJ 





MCI 33 


Jump to test for A . 


122 


RJ 


SY 


SY1 






EJ 


MC153 


MCI22 


Test SENTENCE 


124 


TP 


SY11 


\ 




125 


QJ 


MC126 


ZJI J Test for digit 


126 


TP 


SY2 


LN4 1 
LN J 


. 


127 


RJ 


LN2 


' Process line number 


130 


TP 


LN3 


WL7 


Line number -» string-out 


131 


TP 


LN3 


A 1 
1X1 J 




132 


RJ 


IX 


Line number — > list IZ 


133 


RJ 


SY 


SY1 




134 


EJ 


MC152 


MC136 


Test A . 


135 


MJ 





ZK1 




136 


RJ 


VP 


VP1 


Build Vary File 


137 


RJ 


vz 


VZ1 


Presetting region 


140 


TV 


SV11 


PL30" 


W^ -> A 


141 
142 
143 


TP 
ST 

AT 


PL30 

HCI56" 

PL 


A 
A 
WL 


WJ*±l " WL = n 

Put no. of words in string-out — > W 
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144 


RJ 


SS 


SSI 




145 


MJ 





MC 




146 


66 


33546 


77777 


THRU 


147 


66 


33545 


16732 


THROUGH 


150 


54 


30656 


74730 


RESUME 


151 


66 


51777 


77777 


TO 


152 


01 


22777 


77777 


A . 


153 


65 


30506 


63050 


SENTENCE 


154 


71 


34663 


37777 


WITH 


155 








20 


(20) 8 


156 








WL 




157 


EJ 


MC152 


MC161 ' 




160 


MJ 





MC101 


Test A . 


161 


TP 


WL5 


WL6 




162 


MJ 





MC136 . 




163 


TP 


LN3 


WL6 




164 


TP 


LN3 


A 




165 


MJ 
CA 




MC166 


MC77 
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Process a Region 





IA 


LV 







MJ 





30000 


1 


RJ 


SY 


SY1 


2 


TP 


SY7 


Q 


3 


QJ 


LV4 


ZA1 . 


4 


TP 


SY2 


VT20 


5 


RJ 


RH 


RH1 


6 


RJ 


TS 


TS1 


7 


MJ 





LV23 


10 


TP 


TS3 


A 


11 


TJ 


LV45 


ZA1 


12 


TJ 


LV46 


LV14 


13 


MJ 





ZA1 


14 


TP 


TS3 


SV22 


15 


TP 


TS4 


Q ^ 


16 


QJ 


LV17 


LV ^ 


17 


TP 


SY10 


^ 


20 


QJ 


LV 


LV21 - 


21 


RA 


SV22 


PL4 


22 


MJ 





LV 


23 


RJ 


TA 


TA1 


24 


MJ 





LV33 


25 


TP 


TA4 


A 


26 


TJ 


LV45 


ZA1 


27 


TJ 


LV46 


LV31 


30 


MJ 





ZA1 j 


31 


TP 


TA4 


SV22 


32 


MJ 





LV 


33 


TP 


SY10 





34 


QJ 


LV35 


LV40 . 


35 


RJ 


TK 


TK1 


36 


AT 


PL14 


SV22 


37 


MJ 





LV42 


40 


RJ 


TK 


TK1 


41 


AT 


PL15 


SV22 


42 


TJ 


LV45 


ZA1 


43 


TJ 


LV46 


xu 


44 


MJ 





ZA1 


45 








63000 


46 








67000 




CA 


LV47 





Test for 1st character, a letter 

a —> Temp a 

Test variable type symbol 

Search DP list 

Not in list return 

Test 62777 < CW < 66777 



C/W -> Temp (L2) 
Test for Pseudo op 

Test for fixed or fltpt. 

Op. portion of Temp @ to 40 

Search Combination List 
Not in list return 

Test 62777 < C/W < 66777 
C/W of symbol in list -> Temp @ 



j Test for fixed or fltpt. 



Sequence number — > A 

Fixed pt.; 64000 C/W —> Temp dS 

Sequence number — > A 
65000 C/W -> Temp @ 



Jump out for correction 
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Search Variable List **VL** for Modifiers Previously Mentioned 





IA 


W 









MJ 





30000 




1 


SP 


VL 





VL„+1 -* A 


2 


ss 


VV11 





-VL1 = n = # words - 1 


3 


SA 


W12 





Add J value 


4 


TU 


A 


VV6 




5 


SP 


VT20 





Variable — > A 


6 


RP 


[30000] 


vv \ 

ZM1 J 


Search list VL 


7 


EJ 


VL1 




10 


MJ 





VV 




11 





VL1 







12 




CA 


20000 
VV13 








First Value "a" Region 

IA FV 

MJ 30000 

1 TP SY10 PL31 Set Temp @ indicator for fixed or floating 

point 

2 RJ SY SYl 

3 EJ PL16 FV5 Test (-) 

4 MJ FV7 

5 TP PL4 PL23 L(40,0 t 0) ->flag (5) 

6 MJ FV2 

7 EJ PL13 FV11 Test (|) 

10 MJ FV Exit to Control (MC) 

11 RA SV23 PL4 Set Op. of Temp © to MO* 

12 MJ FV2 
CA FV13 
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Increment Region *V 





IA 


BV 











MJ 





30000 




Exit 


1 


RJ 


SY 


SY1 






2 


TP 


PL33 


A 


} 


Temp ® €(()-» A 


3 


EJ 


PL17 


BV10 


Test ( ( ) 


A 
1 


TP 


SY2 


A 




Test 


5 


EJ 


PL17 


BV7 


(O 


6 


MJ 





ZB1 




Error print and exit 


7 


RJ 


SY 


SY1 






10 


TP 


SY2 


A 


} 


Test 


11 


EJ 


PL13 


BV13 


(1) 


12 


MJ 





BV15 






13 


RA 


SV24 


PL4 




Set Op. of Temp (Q\ to '40* 


14 


MJ 





BV7 




v^^y 


15 


EJ 


PL16 


BV17 




Test for (-) 


16 


MJ 





BV 






17 


TP 


PL4 


PL23 




Set Op. of flag (5) to MO 1 minus ind 


20 


MJ 
CA 



BV21 


BV7 







Bound Phase or Region *V 





IA 


CV 













MJ 





30000 


i 






1 


RJ 


SY 


SY1 




Pick ud ) 
Temp (§)€()) 




2 


TP 


PL33 


A 


i 


->A 


3 


EJ 


PL20 


CV10 


Test ( ) ) 




4 


TP 


SY2 


A 


i 


Test ( ) ) 




er 


T7 T 


r>T oa 


nXTT 






O 


C*J 


CJLi^U 


\jV 1 


j 






6 


MJ 





ZB1 




Error print and 


exit 


7 


RJ 


SY 


SY1 




® 




10 


TP 


SY2 


A 


} 


Test (1) 




11 


EJ 


PL13 


CV13 






12 


MJ 





CV15 








13 


RA 


SV25 


PL4 




Set Op. of Temp 


@ 


14 


MJ 





CV7 








15 


EJ 


PL16 


CV17 




Test for (-) 




16 


MJ 





CV 








17 


TP 


PL4 


PL23 




Set Op. of flag 


(D 


20 


MJ 
CA 



CV21 


CV7 









5) to M 40" 
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Variable Branch 




1 
2 
3 
4 
5 
6 
7 
10 
11 
12 
13 
14 
15 
16 
17 
20 
21 
22 
23 
24 
25 
26 
27 
30 
31 
32 
33 
34 
35 
36 
37 
40 
41 
42 
43 
44 
45 
46 
47 
50 
51 
52 
53 
54 
55 
56 
57 
60 



IA 
MJ 
TP 
TP 
EJ 
MJ 
RJ 
MJ 
RA 
RA 
TP 
MJ 
RJ 
MJ 
RA 
RA 
TP 
MJ 
TP 

QJ 

RA 

RA 

RJ 

TP 

RA 

TP 

RA 

TP 

MJ 

RA 

RA 

RJ 

TP 

RA 

TP 

RA 

TP 

RJ 

MJ 

RA 

RA 

RA 

RA 

RA 







TP 

QJ 

TP 



GV 


PL4 
PL31 
SY10 


TS 


GV10 
[SV23] 
GV46 


TA 


GV16 
[SV23] 
GV47 


PL31 
GV23 
GV27 
GV31 
TK 
A 

[SV23] 
GV50 
[SV23] 
GV51 


GV40 
GV42 
TK 
A 

[SV23] 
GV50 
SV23 
GV52 
VT 


SV23 
SV23 
SV23 
SV23 
SV23 




PL23 
GV60 
PL 



30000 

PL22 

A 

GV56 

ZC1 

TS1 

GV13 

PL10 

TS3 

GV10 

XU21 

TA1 

GV21 

PL10 

TA4 

GV16 

XU21 



GV34 

PL10' 

PL10 . 

TK1 

PL30 

PL30 

GV27 

GV54 

GV31 

GV44 

PL101 

PL10 J 

TK1 

PL30 

PL30 

GV40 

GV55 

GV42 

XU-13 

GV76 

TS3 ' 

TA4 

PL30 

GV54 

GV55, 



64000 

65000 



GV62 

PL23 



Set flag @ for VT to '40' 

Temp ® = SY10 a ->A 

Test consistency of fixed or fltpt. 

Error print 

Search DP list 

Not in list - go search CB 

C/W — >Temp (13,14,15) 

Preset GV10 

Go to build table 

Search CB list 

Not in list - go assign C/W 

C/W — » Temp (13,14,15) 

Preset. GV16 

Go build table 

Temp ® = SYlOa->Q 

Test for fixed or fltpt. variable 

Modifiers 

Obtain proper sequence # — » A 
A -> Temp ® 

Prejet vv GV27 

Temp (13,14,15) + 64000 

Preset GV31 

Go build table 

Modifiers 



PresetJjV4& 

Temp (13,14,15) + 65000 

Preset GV42 

Build table, but make correction first 



Fxd. pt, 



Presetters 



Flag ©— >Q (minus sign indicator) 
Reset flag © to 
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bi 


MJ 





zul 


62 


TP 


SY7 


Q } 
ZAl J 


63 


QJ 


GV64 


64 


RJ 


RH 


RHl 


65 


MJ 





GV5 


66 


RA 


GV67 


PL10 


67 


TP 


[SV23J 


Q 


70 


TP 


GV75 


GV67 


71 


QJ 


GV72 


GV 


72 


RJ 


SY 


SY1 


73 


EJ 


PL13 


GV 


74 


MJ 





ZE1 


75 


TP 


SV23 


Q 


76 


RA 


GV77 


PL10 


77 


TP 


SV23 


A 


100 


TP 


GV106 


GV77 


101 


MJ 





GV107 


102 


TJ 


GV105 


GV66 


103 


MJ 





ZAl 


104 








63000 


105 








67000 


106 


TP 


SV23 


A 


107 


TP 


UV31 


Q 


110 


QT 


A 


A 


111 


TJ 


GV104 


ZAl 


112 


MJ 





GV102 




CA 


GV113 





Error print 

Test 

Error for first character a letter 

Test for variable type symbol 



Test for opening absolute value sign 

Detected 

Test for closing absolute value sign 

Error print; inconsistent use of absolute 

Presetter 



L(O t 77777, 77777) 
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Constant Branch 





IA 


HV 









MJ 





[30000] 


1 


RJ 


SY 


SY1 


Senten : 1 


2 


RP 


30011 


HV4 " 


l" Save this information 


3 


TP 


SZ2 


ZZ2 . 


4 


EJ 


PL13 


HV6 


Test (|) (absolute sign) 


5 


MJ 





HV17 


No. (I)detected 


6 


RJ 


SY 


SY1 


( 


7 


MJ 





HV45 


Test (*) — > set up routine 


10 


EJ 


PL6 


TV1 


Test (E) — > set up routine 


11 


RA 


HV12 


PL10 




12 


TP 


[SV23] 







13 


TP 


HV41 


HV12 


Preset JW12 


14 


QJ 


HV16 


HV15 




15 


MJ 





ZE1 


Error print and exit 


16 


MJ 





HV 


Go to JV via MC 


17 


EJ 


PL17 


HV22 


Test (() 


20 


EJ 


PL20 


HV22 


Test ()) 


21 


MJ 





HV42 


Jump out for correction 


22 


TP 


SY2 


PL33 


(() or ()) ->Temp® 


23 


MJ 





HV 


Go to JV via MC 


24 


TP 


PL31 


Q 


Temp ®-»Q 


25 


QJ 


HV26 


HV55 


Test fixed or floating point 


26 


MJ 





ZC1 


Error print and exit 


27 


EJ 


PL7 


UV1 


Test (*)— > set up routine 


30 


EJ 


PL6 


TV1 


Test (E)— > set up routine 


31 


MJ 





ZF1 


Error print and exit 


32 


RP 


30011 


HV34 




33 


TP 


ZZ2 


SY2 




34 


RJ 


RB 


RBI 




35 


RJ 


10 


101 




36 


TP 


IQ2 


PL30 


Send value to temp (T) 


37 


RA 


HV 


PL1 


Set up for return to WV 


40 


MJ 





HV 




41 


TP 


SV23 


Q 


Presetter for HV12 


42 


EJ 


MC154 


HV22 


Test WITH 


43 


EJ 


MC153 


HV22 


Test SENTEN 


44 


MJ 





HV50 




45 


TP 


SY2 


PL33 




46 


EJ 


PL7 


UV1 




47 


MJ 





HV10. 




50 


RA 


HV51 


PL10 


No presetter 


51 


TP 


[SV23] 


Q 


Test for previous mention of 2 


52 


TP 


HV54 


HV51 , 




53 


QJ 


ZE1 


HV24 




54 


TP 


SV23 


Q 




55 


TP 


SY2 


A 




56 


MJ 
CA 



HV57 


HV27 





( I ) detected 
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Fixed or Floating Point Constant Branch 





IA 


JV 











MJ 





3OOO0 






1 


RP 


30011 


JV3 






2 


TP 


ZZ2 


SY2 






3 


TP 


PL31 


Q 




Fixed or f ltpt. indicator - > Q 


4 


QJ 


JV5 


JV17 






5 


RJ 


RD 


RD1 




Fixed-pt. test 




TD 


SY2 


RS4 




XS-3 to octal conversion 


7 


RJ 


RS2 


RS 




10 


TP 


PL23 


Q 


} 


Test flag © for (-) indication 


11 


QJ 


JV12 


JV15 




12 


TN 


RS3 


PL30 




Negative value — > Temp ® 


13 


TP 


PL 


PL23 




0-»flag © 


14 


MJ 





JV 




Exit to WV via MC 


15 


TP 


RS3 


PL30 




Positive value — > Temp (J) 


16 


MJ 





JV 




Exit to WV via MC 


17 


RJ 


RB 


RBI 




* 


20 


TP 


SY2 


GG4 






21 


TP 


SY3 


GG5 






22 


RJ 


GG2 


GG 






23 


TP 


PL23 









24 


QJ 


JV25 


JV30 






25 


TN 


GG3 


PL30 




Negative value — » Temp (f) 


26 


TP 


PL 


PL23 






27 


MJ 





JV 




Exit to WV via MC 


30 


TP 


GG3 


PL30 




Positive value — > Temp ® 


31 


MJ 





JV 




Exit to WV via MC 




CA 


JV32 









Fixed 
Pt. 



Floating 
Pt. 
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rA 



WV 



Exit for Constant Branch 




Set up for ( | ) detection 

Magnitude of constant -> Temp @ 

Constant — > Temp (3) 
Set up reference table 

Search and assign C/W from constant pool 

C/W -» Temp (T| 



Test for MO* indicator 
L(3777....)-» Q 

Mask C/W— > Temp ® 

Shift counter PLIO to V 

Clear cell (set Op. to 0) 

C/W— > Temp (l 
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Build Variable List 





IA 


DV 







MJ 





30000 


1 


TV 


VL 


DV2 


2 


TP 


VT20 


[[30000] 


3 


RA 


VL 


PL3 


4 


TP 


VT25 


Q \ 
DV6 J 




QJ 


DV12 


6 


TV 


VL 


DV7 


7 


TP 


PL 


[30000] - 


10 


RA 


VL 


PL3 


11 


MJ 





DV15 


12 


TV 


VL 


DV13 


13 


TP 


VT22 


[30000] - 


14 


RA 


VL 


PL3 


15 


TP 


VT26 


1 
DV17 J 


16 


QJ 


DV23 


17 


TV 


VL 


DV20 * 


20 


TP 


PL 


[30000] ' 


21 


RA 


VL 


PL3 


22 


MJ 





DV 


23 


TV 


VL 


DV24 


24 


TP 


VT23 


[30000] - 


25 


RA 


VL 


PL3 


26 


MJ 





DV 




CA 


DV27 





Counter 



DV2, 



a ->VL n ; n > 1 

Increase counter VL by (0,1,1) 

Test % n for variable 



No variable.*. -> VL list 

Increase Counter VL by (0,1,1) to test'V* 



Insert variable in list 
Increase counter VL by (0,1,1) 
Test "c" for variable 



No variable.*. -»VL list 

To preface region PVvia MC 

Insert variable in list 

Exit to preface region PV via MC 
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IA 


PV 







MJ 





30001 


Test l 


TP 


VT24 





%. 2 


QJ 


PV21 


PV3 


3 


TP 


VT25 





4 


QJ 


PV21 


PV5 


5 


TP 


VT26 





6 


QJ 


PV21 


PV7 


7 


TP 


VT22 


A 


10 


ZJ 


PV11 


ZH1 


11 


TP 


VT21 


A 


12 


ST 


VT23 


A 


13 


ZJ 


PV14 


PV 


14 


SJ 


PV15 


PV17 


15 


TP 


VT22 


A 


16 


SJ 


ZH1 


PV 


17 


TP 


VT22 


A 


20 


SJ 


PV 


ZH1 


) 21 


TP 


VT24 





22 


QJ 


PV35 


PV23 


23 


TP 


VT26 


Q 


24 


QJ 


PV35 


PV25 


25 


TP 


VT23 


A 


26 


ST 


VT21 


A 


27 


ZJ 


PV30 


PV 


30 


SJ 


PV31 


PV33 


31 


TP 


SV24 


Q 


32 


QJ 


ZH1 


PV33 


33 


MJ 





PV 


34 











Test 35 


TP 


VT25 


Q 


* 36 


QJ 


PV 


PV37 


37 


TP 


VT24 





40 


QJ 


PV43 


PV41 


41 


TP 


VT26 


Q 


42 


QJ 


PV43 


PV 


43 


TP 


VT22 


A 


44 


ZJ 


PV 


ZH1 




CA 


PV45 





Preface for Indicator Region 



a' ->Q 

PV21 = ® 

b'-> Q 

PV21 = ® 

C'— > Q 

PV21 = ® 

Test b = 

Error print infinite loop designed 

a -»A 

a-c —> A 



0— »A 

Test b > 0; if not, error print, 
Infinite loop designed 
Test b < 

Error print, infinite loop designed 
® 21 TP VT24 Q a»— >Q 

Go to test 4 
c f -> Q 

c*->A 
c-a -+ A 

Test c-a > 

Test Temp (14) €b for absolute value 

Error print, infinite loop 



Test b ', if variable r then exit 



Test b = 0. If so, 

error print, infinite loop designed 
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Build Indicator WX 





TA 


IV 







MJ 





300(X 


i 


TP 


VT25 




2 


QJ 


IV3 


IV4 


3 


RA 


SV21 


IV47 


4 


TP 


VT24 


Q 


5 


QJ 


IV6 


IV10 


6 


RA 


SV21 


IV46 


7 


MJ 





IV12 


10 


TP 


VT26 


Q 


11 


QJ 


IV6 


IV50 


Constant 12 


TP 


SV21 


Q 


13 


LQ 


Q 


20 


14 


QJ 


IV22 


IV15 


15 


TP 


IV42 


A 


16 


TJ 


VT22 


IV22 


17 


TP 


VT22 


Q 


20 


QJ 


IV21 


IV22 


21 


RA 


SV21 


IV45 


22 


TP 


SV21 


Q 


23 


LQ 


Q 


21 


24 


QJ 


IV 


IV25 


25 


TP 


VT23 


A 


26 


ST 


VT21 


A 


27 


ZJ 


IV32 


IV30 


30 


RA 


SV21 


IV44 


31 


MJ 





IV 


32 


TP 


SV21 


Q 


33 


LQ 


Q 


21 


34 


QJ 


IV 


IV35 


35 


TP 


VT23 


A 


36 


ST 


VT21 


A 


37 


SJ 


IV40 


IV 


40 


RA 


SV21 


IV43 


41 


MJ 





IV 


42 











43 





1 





44 





2 





45 





4 





46 





10 





47 





20 





50 


TP 


SV21 


A 


51 


ZJ 


IV12 


IV 




CA 


IV52 





Test b ? 

1 — >B5 
Test a' 

1 -> B4 

Test c 1 

Test bit 5 = 1 

Test b > 

Test b < 
l-> B3 

Test bit 4 = 1 

Text c-a = 
1— >B2 

Test bit 4 = 1 

Test c-a> 
1— > Bl 
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Mover Region 




IA 


SV 









MJ 





30000 




1 


TP 


[SV22] 


A 


(0P f 0, C/W) 


2 


LA 


A 


17 


(OP, 0, C/W) 


3 


TU 


A 


[SV22] 


(OP, C/W, C/ 


4 


RA 


SV1 


PL2 




5 


RA 


SV3 


PL1 




6 


IJ 


SV16 


SV1 


Reset SV16 


7 


TP 


SV26 


SV1 




10 


TP 


SV27 


SV3 




11 


TP 


[SV21] 


[WLllJ 




12 


RA 


SV11 


PL3 


► 


13 


IJ 


SV17 


SV11 


Move Temp — > 


14 


TU 


SV20 


SV11 . 




15 


MJ 





SV30 




16 








3 


Index 


17 








4 


Index 


20 





SV21 







21 











Temp (Th 


22 











Temp Q2] 


23 











Temp (13) 


24 











Temp q| 


25 











Temp Q3 


26 


TP 


SV22 


A 




27 


TU 


A 


SV22 




30 


TP 


SV33 


SV16 1 

SV17 J 


Reset Index 


31 


TP 


SV34 


r 


32 


MJ 





SV 




33 








3 




34 




CA 



SV35 


4 





(0, C/W, 0) 



WL 
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Presetter Region for Re-entry to LV 





IA 


vz 











MJ 





30000 




1 


TP 


PL 


PL10 




0— > CTR 


2 


TP 


PL 


PL11 




0— >CTR1 


3 


RP 


10003 


VZ5 


} 


0— » flags 


4 


TP 


PL 


PL21 




5 


RP 


10007 


VZ7 


J 


— > storage 


L 


TP 


PL 


VT20 




7 


RP 


10005 


VZ11 


} 


— > Temps @ 


10 


TP 


PL 


SV21 




11 


RP 


10006 


VZ13 






12 


TP 


PL 


PL30 






13 


MJ 
CA 




VZ14 


VZ 







- a 



Subroutine for Detection of Asterisk* 





IA 


UV 









MJ 





EV1 


Jump to Exit 


1 


RJ 


SY 


SY1 




2 


EJ 


PL25 


UV4 


Test for XS-3 '10' 


3 


MJ 





ZGl 


Error print 


4 


RJ 


SY 


SY1 




5 


EJ 


PL5 


TY1 


Test for XS-3 POW 


6 


TP 


SY13 


Q "1 Test 


7 


QJ 


UV10 


UV21 J 


for superscript 


10 


RJ 


SY 


SY1 




11 


TP 


SZ2 


A 1 
UV21 J 




12 


EJ 


DV31 


Test for superscrip 


13 


TP 


SZ2 


IN2 




14 


RJ 


IN 


INI 




15 


TP 


IN2 


RS4 


No superscript (-) 


16 


RJ 


RS2 


RS 




17 


TP 


RS3 


IQ3 . 




20 


MJ 





UV 




21 


TP 


SY2 


IN2 




22 


RJ 


IN 


INI 




23 


TP 


IN2 


RS4 




24 


RJ 


RS2 


RS 




25 


TN 


TS3 


IQ3 




26 


MJ 





uv 




27 


TP 


PL26 


RS4 


XS-3 (1) -> RS4 


30 


MJ 





UV16 




31 


00 
CA 


77777 
UV32 


77777 


Superscript (-) 
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Subroutine for Detection of "E 1 





IA 


TV 











MJ 





EV1 




Exit 


1 


RJ 


SY 


SY1 






2 


EJ 


PL16 


TV12 


i 


Test (-) 


3 


EJ 


PL36 


TV5 




Test (+) 


4 


MJ 





TV6 






5 


RJ 


SY 


SY1 






6 


RJ 


RD 


RD1 




Check fixed pt. constant 


7 


TP 


SY2 


RS4 


} 


Decimal 


10 


RJ 


RS2 


RS 


to octal conversion 


11 


TP 


RS3 


IQ3 






12 


MJ 





TV 






13 


RJ 


SY 


SY1 






14 


RJ 


RD 


RD1 




Check fixed pt. constant 


15 


TP 


SY2 


RS4 


} 


Decimal 


16 


RJ 


RS2 


RS 


to octal conversion 


17 


TN 


RS3 


IQ3 






20 


MJ 





TV 








CA 


TV21 









Exit for Scientific Notation Set-up Routine 





IA 


EV 









MJ 





HV32 




1 


TP 


ZZ2 


GG4 




2 


TP 


ZZ3 


GG5 




3 


RJ 


GG2 


GG 




4 


TP 


PL23 


Q 




5 


QJ 


EV6 


EV11 


Test flag 


6 


TP 


PL 


PL23 


Reset flag 


7 


TN 


GG3 


IQ2 




10 


MJ 





EV 




11 


TP 


GG3 


IQ& 




12 


MJ 
CA 



EV13 


EV 
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Set Up Reference Table Used by VL, W WX", and Preface 





IA 


VT 











MJ 





[30000] 


Exit 


1 


RA 


PL11 


PL1 


Entrance. CTR1 + 1 -> CTR 


2 


TP 


PL22 





Flag ®-*Q 


3 


QJ 


VT10 


VT4 


Test for variable (-) 


4 


RA 


VT5 


PL11 ' 


Constant 


5 


TP 


PL34 


[VT20] 


h VT20 = Beginning of table 


6 


TP 


\rr07 

« -■-£• 1 


irre 


Preset VT5 


7 


MJ 





VT16 




10 


RA 


VT11 


PL11 V Variable 


11 


TP 


PL4 


[VT231 


L(40 f t 0) — > Table 


12 


TP 


VT30 


VT11 


Preset VT11 


13 


RA 


VT14 


PL11 




14 


TP 


SY2 


[VT20] 


Symbol— >• Table 


15 


TP 


VT31 


VT14 . 


Preset VT14 


16 


TP 


PL 


PL22 


Reset flag © to 


17 


MJ 





VT 




Table 20 











a f the variable 


21 











a, the lower limit 


22 











b, the incrementing value 


23 











c, the upper limit 


24 











a» 




25 











b' 


(-) indicates Var 


26 











c* 




27 


TP 


PL34 


VT20 




30 


TP 


PL4 


VT23 




31 


TP 


SY2 


VT20 






CA 


VT32 
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Constant Pool 




1 
2 
3 
4 
5 
6 
7 

10 
11 
12 
13 
14 
15 
16 
17 
20 
21 
22 
23 
24 
25 
26 
27 
30 
31 
32 
33 
34 
35 
36 
37 



IA 









40 

52 

30 

56 







42 





02 

17 

43 









04 

04 















63 

77 

CA 



PL 





1 

1 



77777 

77777 

77777 







77777 





77777 

77777 

77777 









03777 

77777 















77777 

77777 

PL40 





1 



1 



77777 

77777 

77777 







77777 

64000 

65000 

77777 

77777 

77777 









77777 

77777 















77777 

77777 



POW 

E 

CTR Slot for Temp 11 - Tern 
CTR1 Slot for © - © ; (a 



- lower case minus 



- 




X-S3 



10 
1 




+ lower case plus 



IA 
RJ 
RJ 
MJ 



XV 

XV XV3 1 

LV LV1 

MC2 



f?P fOOOf Ml 

TP PL WL4 J 
CA XV5 



Zeroizes critical part 

of Vary Stringout WL4 - WL10 
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1 

2 
3 

4 
5 

A 
\j 

7 
10 
11 
12 
13 
14 
15 
16 
17 
20 
21 
22 



IA 
TP 
TP 
TP 
TP 
RJ 

MJ 
r\ 

v/ 



RJ 

EJ 

MJ 

TP 

MJ 

TP 

MJ 

MJ 

MJ 

RJ 

MJ 

CA 



XU 

XU6 

SY2 

A 

XU7 

TE 



<j 



SY 

MC152 



XU17 



XU20 







VT 



XU23 



TF 

TF1 

TF2 

TF3 

TE1 

LV 

Q 
«j 



SY1 

ZN1 

MC104 

XU5 

XU 

XU5 

VT1 

XU15 

LV 

VT1 

GV45 



SY2 

Put C/W and XS-3 symbol in CB list 
for variable a 



Put C/W and XS-3 symbol in CB list 
for a, b f and c 



Builds table 











Error Prints 








IA 


ZA 













MJ 





ID3 








1 


RJ 


WA 


WA1 








2 


TP 


SY2 


ZA6 








3 


TP 


ZA14 


DP3 








4 


RJ 


UP2 


DP 








5 


MJ 





ZA 








6 


77 


77777 


77777 











7 


01 


34650 


15051 


A I S A 


N 





10 


66 


01240 


17024 


T A A A 


V 


A 


11 


54 


34242 


54630 


R I A B 


L 


E 


12 


01 


65734 


72551 


A S Y M 


B 





13 


46 


22777 


77777 


L . 77 77 


77 


77 


14 


40 
CA 


ZA6 

ZA15 


6 
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IA 


ZB 



















MJ 





ID3 














1 


RJ 


WA 


WA1 














2 


TP 


ZB13 


UP3 














3 


RJ 


UP2 


UP 














4 


MJ 





ZB 














5 


31 


51544 


72466 


F 





R 


M 


A 


T 


6 


01 


30545 


45154 


A 


E 


R 


R 





R 


7 


01 


34223 


02201 


A 


I 


. 


E 


r 


A 


10 


50 


51015 


22454 


N 





A 


P 


A 


R 


11 


30 


50663 


33065 


E 


N 


T 


H 


E 


S 


12 


34 


65227 


77777 


I 


S 


• 








13 


40 
CA 

IA 


ZB5 
ZB14 

ZC 


6 

















MJ 





ID3 














1 


RJ 


WA 


WA1 














2 


TP 


ZC16 


UP3 














3 


RJ 


UP2 


DP 














4 


MJ 





ZC 














5 


34 


50265 


15065 


I 


N 


C 





N 


S 


6 


34 


65663 


05066 


I 


S 


T 


E 


N 


T 


7 


01 


67653 


00151 


A 


D 


S 


E 


A 





10 


31 


01313 


47230 


F 


A 


F 


I 


X 


E 


11 


27 


01515 


40131 


D 


A 





R 


A 


F 


12 


46 


51246 


63450 


L 





A 


T 


I 


N 


13 


32 


01525 


13450 


G 


A 


P 





I 


N 


14 


66 


01515 


23054 


T 


A 





P 


E 


R 


15 


24 


50276 


52277 


A 


N 


D 


S 


# 




16 


40 
CA 

IA 


ZC5 
ZC17 

ZD 


11 

















MJ 





ID3 














1 


RJ 


WA 


WA1 














2 


IP 


ZD14 


UP3 














3 


RJ 


UP2 


DP 














4 


MJ 





ZD 














5 


47 


34506 


76501 


M 


I 


N 


U 


S 


A 


6 


65 


34325 


00134 


S 


I 


G 


N 


A 


i 


7 


46 


46303 


22446 


L 


L 


E 


G 


A 


L 


10 


01 


52543 


03134 


A 


P 


R 


E 


F 


I 


11 


72 


01665 


10170 


X 


A 


T 





A 


V 


12 


24 


54342 


42546 


A 


R 


I 


A 


B 


L 


13 


30 


22777 


77777 


E 


, 










14 


40 
CA 


ZD5 
ZD15 


7 















764 





IA 


ZE 



















MJ 





ID3 














1 


RJ 


WA 


WAl 














2 


TP 


ZE14 


UP3 














3 


RJ 


UP2 


UP 














4 


MJ 





ZE 














5 


34 


50265 


15065 


I 


N 


C 





N 


S 


6 


34 


65663 


05066 


I 


s 


T 


E 


N 


T 


7 


01 


67653 


00151 


A 


u 


S 


E 


A 





10 


31 


01242 


56551 


F 


A 


A 


B 


s 





11 


46 


67663 


00170 


L 


u 


T 


E 


A 


V 


12 


24 


46673 


00165 


A 


L 


U 


E 


A 


s 


13 


34 


32506 


52277 


I 


G 


N 


S 


• 




14 


40 
CA 

IA 


ZE5 
ZE15 

ZF 


7 

















MJ 





ID3 














1 


RJ 


WA 


WAl 














2 


TP 


SY2 


ZF6 














3 


TP 


ZF21 


DP3 














4 


RJ 


UP2 


UP 














5 


MJ 





ZF 














6 


77 


77777 


777777 




















7 


01 


66735 


23001 


A 


T 


Y 


P 


E 


A 


10 


65 


73472 


55146 


s 


Y 


M 


B 





L 


11 


01 


34650 


13446 


A 


r 


S 


A 


I 


L 


12 


46 


30322 


44601 


L 


E 


G 


A 


L 


A 


13 


34 


50016 


52634 


r 


N 


A 


S 


C 


I 


14 


30 


50663 


43134 


E 


N 


T 


I 


F 


I 


15 


26 


01505 


16624 


c 


A 


N 





T 


A 


16 


66 


34515 


00101 


T 


I 





N 


A 


A 


17 


01 


01010 


10131 


A A 


A A 


A 


F 


20 


51 


54472 


46622 





R 


M 


A 


T 


• 


21 


40 
CA 


ZF6 
ZF22 


13 















765 





IA 


ZG 



















MJ 





ID3 














1 


RJ 


WA 


WA1 














2 


TP 


ZG13 


UP3 














3 


RJ 


UP2 


UP 














4 


MJ 





ZG 














5 


34 


46463 


03224 


I 


L 


L 


E 


G 


A 


6 


46 


01652 


63430 


L 


A 


S 


C 


I 


E 


7 


50 


66343 


13426 


N 


T 


I 


F 


I 


C 


10 


01 


50516 


62466 


A 


N 





T 


A 


T 


11 


34 


51500 


13151 


I 





N 


A 


F 





12 


54 


47246 


62277 


R 


M 


A 


T 


« 




13 


40 
CA 

TA 


ZG5 
ZG14 

ZH 


6 

















MJ 





ID3 














1 


RJ 


WA 


WA1 














2 


TP 


ZH15 


0P3 














3 


RJ 


DP2 


UP 














4 


MJ 





ZH 














5 


26 


33245 


03230 


C 


H 


A 


N 


G 


E 


6 


01 


47512 


73431 


A 


M 





D 


I 


F 


7 


34 


30546 


50166 


i 


E 


R 


S 


A 


T 


10 


51 


01304 


63447 





A 


E 


L 


i 


M 


11 


34 


50246 


63001 


i 


N 


A 


T 


E 


A 


12 


34 


50313 


45034 


i 


N 


F 


I 


N 


I 


13 


66 


30014 


65151 


T 


E 


A 


L 








14 


52 


22777 


77777 


P 


. 










15 


40 
CA 


ZH5 
ZH16 


10 















766 





IA 


zr 



















MJ 





MC 














1 


RJ 


WA 


WA1 














2 


TO 

J.M. 


ZI22 


DP3 














3 


RJ 


DP2 


DP 














4 


MJ 





zr 














5 


66 


33300 


15067 


T 


H 


E 


A 


N 


D 


6 


47 


25305 


40151 


M 


B 


E 


R 


A 





7 


31 


01475 


12734 


F 


A 


M 





D 


I 


10 


31 


34305 


40126 


F 


I 


E 


R 


A 


C 


11 


51 


47525 


15030 





M 


P 





N 


E 


12 


50 


66650 


13072 


N 


T 


S 


A 


R 


Y 


13 


26 


30302 


70104 


C 


E 


E 


D 


A 


1 


14 


10 


22015 


43065 


5 


. 


A 


R 


E 


S 


15 


66 


01513 


10165 


T 


A 





F 


A 


S 


16 


30 


50663 


05026 


E 


N 


T 


E 


N 


c 


17 


30 


01505 


16601 


E 


A 


N 





T 


A 


20 


26 


33302 


64530 


C 


H 


E 


C 


K 


E 


21 


27 


22777 


77777 


D 


. 


77 


77 


77 


77 


22 


40 
CA 

IA 


Z15 
ZI23 

ZJ 


15 

















MJ 





MC 














1 


RJ 


WA 


WA1 














2 


TP 


ZJ20 


UP3 














3 


RJ 


UP2 


DP 














4 


MJ 





ZJ 














5 


47 


34656 


55230 


M 


I 


S 


S 


P 


E 


6 


46 


46345 


03201 


L 


L 


I 


N 


G 


A 


7 


51 


54015 


05101 





R 


A 


N 





A 


10 


54 


30313 


05430 


R 


E 


F 


E 


R 


E 


11 


50 


26302 


70165 


N 


C 


E 


D 


A 


S 


12 


30 


50663 


05026 


E 


N 


T 


E 


N 


C 


13 


30 


22777 


77777 


E 


. 










1 A 
11 


Ul 


51310 


16530 














15 


50 


66305 


02630 


Dnused area 






16 


01 


50516 


60126 














17 


33 


30264 


52722 J 














20 


40 
CA 


ZJ5 
ZJ21 


7 















767 





IA 


ZK 



















MJ 





WC 














1 


RJ 


WA 


WA1 














2 


TP 


ZK11 


UP3 














3 


RJ 


UP2 


UP 














4 


MJ 





ZK 














5 


50 


51016 


55224 


N 





A 


S 


P 


A 


6 


26 


30015 


23054 


C 


E 


A 


P 


E 


R 


7 


34 


51270 


16573 


I 





D 


A 


S 


Y 


10 


47 


25514 


62277 


M 


B 





L 


, 




11 


40 
CA 

IA 


ZK5 
ZK12 

ZL 


4 

















MJ 





MC 














1 


RJ 


WA 


WA1 














2 


TP 


ZL15 


DP3 














3 


RJ 


DP2 


DP 














4 


MJ 





ZL 














5 


34 


50265 


14752 


r 


N 


C 





M 


P 


6 


46 


30663 


00165 


L 


E 


T 


E 


A 


S 


7 


30 


50663 


05026 


E 


N 


T 


E 


N 


C 


10 


30 


01342 


23022 


E 


A 


r 


• 


E 


^ 


11 


01 


50510 


11754 


A 


N 





A 


/ 


R 


12 


24 


50323 


04301 


A 


N 


G 


E 


/ 


A 


13 


26 


51475 


25150 


C 





M 


P 





N 


14 


30 


50662 


27777 


E 


N 


T 


B 


77 


77 


15 


40 


ZL5 


10 















CA ZL16 



768 





1A 


ZJVl 















MJ 





ID3 










1 


RJ 


WA 


WAl 










2 


TP 


VT20 


ZM10 










3 


TP 


ZM21 


UP3 










4 


RJ 


UP2 


UP 










5 


MJ 


Q 


ZM 










6 


70 


24543 


42425 


V 


A 


R I 


A B 


7 
1 


46 


30017 


77777 
i l l l l 


T 
i-i 


i_i 


A 77 
«-j i i 


77 77 
ii ii 


10 


01 


01010 


10101 


A 


A 


A A A A 


11 


01 


47676 


56601 


A 


M 


u s 


T A 


12 


50 


51660 


12633 


N 





T A 


C H 


13 


24 


50323 


00170 


A 


N 


G E 


A v 


14 


24 


46673 


06501 


A 


L 


U E 


s A 


15 


71 


34663 


33450 


W 


I 


T H 


I N 


16 


01 


70245 


47301 


A 


V 


A R 


Y A 


17 


77 


77777 


77777 


77 


77 


77 77 


77 77 


20 


46 


51515 


22277 


L 





P 


• 


21 


40 
CA 

TA 


ZM6 
ZM22 

ZN 


13 













MJ 





MC 










1 


RJ 


WA 


WAl 










2 


TP 


ZN21 


DP3 










3 


RJ 


DP2 


UP 










4 


MJ 





ZN 










5 


30 


54545 


15401 


E 


R 


R 


R A 


6 


34 


50016 


65424 


I 


N 


A T 


R A 


7 


50 


65313 


05401 


N 


S 


F E 


R A 


10 


26 


51475 


25150 


C 





M P 


N 


11 




wyr VV 




E 


M 


T A 

J. 4_Jk 


T 


12 


30 


22014 


73465 


E 


# 


A M 


I s 


13 


65 


52304 


64630 


S 


P 


E L 


L E 


14 


27 


01715 


15427 


D 


A 


W 


R D 


15 


01 


51540 


10134 


A 





R A A I 


16 


50 


26515 


45430 


N 


c 


R 


R E 


17 


26 


66013 


15154 


C 


T 


A F 


R 


20 


47 


24662 


27777 


M 


A 


T . 


77 77 


21 


40 
CA 


ZN5 
ZN22 


14 
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Build VARY File 
(Entered after processing sentence number of last statement in range) 



® 





IA 


VP 







MJ 





30000 


1 


SP 


VS5 





2 


TJ 


VF 


VQ 


3 


SP 


WL3 





4 


TJ 


VS4 


VP31 


5 


TV 


VI2 


VP6 


6 


TP 


WL6 


30000 


7 


SP 


VI2 





10 


SA 


VS 





11 


TV 


A 


VP13 


12 


SP 


WL4 


36 


13 


AT 


WL3 


30000 


14 


TU 


VI 


VP15 


15 


SP 


30000 





16 


EJ 


WL1 


VQ4 


17 


RA 


VF 


VS2 


20 


SP 


VI 





21 


EJ 


VI2 


VP27 


22 


TU 


A 


VP24 


23 


TU 


VI2 


VP25 


24 


SP 


30000 





25 


TJ 


30000 


VQ10 


26 


TP 


VI2 


VI 


27 


RA 


VI2 


VS1 


30 


MJ 





VP 


31 


TP 


VF 





32 


QT 


VS3 


A 


33 


ZJ 


VP5 


VP34 


34 


LQ 


Q 


25 


35 


QT 


VS3 


A 


36 


TV 


A 


VF 


37 


MJ 





VPS 




CA 


VP40 





Has Vary File exceeded its maximum? 

No 

Is 23000 > sentence call word? 
NOj enter sentence number of last statement in 
range into Vary File 



Insert call word and no. of WITH words in 
next word of Vary File 



Is current sentence number = sentence number in 

Vary File ? 
Increase VF by two 
( a ) = (/)? 

Is sentence number at address given by ( X) 
> sentence number at address given by ( a )? 



No, so set ( a ) = (y) 
Advance ( /) by two 
Exit 

Is indicator set? (i.e., has there been a 
22— Vary before?) 

No, so set u of VFO into v of VFO 



770 



© 



© 





IA 


VQ 







RJ 


WA 


WA1 


1 


TP 


NV 


UP3 


2 


RJ 


UP2 


UP 


3 


MJ 





VP 


4 


RJ 


WA 


WA1 


5 


TP 


NV7 


UP3 


e. 
O 


RJ 


TTQO 

ur*s 


TTT> 

ur 


7 


MJ 





VP 


10 


RJ 


WA 


WA1 


11 


TP 


NV21 


UP3 


12 


RJ 


UP2 


UP 


13 


MJ 





VP 




CA 


VQ14 






IA 


VS 










1 


1 


1 





2 


2 


2 





2 





3 








07777 


4 








230000 


5 





20143 






144 = max. length of Vary File (excluding VFO) 
(50 Vary statements in problem maximum) 
CA VS6 



771 





IA 


NV 



















40 


NV1 


6 














1 


66 


51510 


14724 


T 








A 


M 


A 


2 


50 


73017 


02454 


N 


Y 


A 


V 


A 


R 


3 


73 


01653 


05066 


Y 


A 


s 


E 


N 


T 


4 


30 


50263 


06501 


E 


N 


c 


E 


S 


A 


5 


34 


50015 


25451 


I 


N 


A 


P 


R 





6 


32 


54244 


72201 


G 


R 


A 


M 


. 


A 


7 


40 


NV10 


11 














10 


70 


24547 


30147 


V 


A 


R 


Y 


A 


M 


11 


67 


65660 


15051 


U 


S 


T 


A 


N 





12 


66 


01253 


00146 


T 


A 


B 


E 


A 


L 


13 


24 


65660 


16530 


A 


s 


T 


A 


s 


E 


14 


50 


66305 


02630 


N 


T 


E 


N 


c 


E 


15 


01 


34500 


15424 


A 


I 


N 


A 


R 


A 


16 


50 


32300 


15131 


N 


G 


E 


A 





F 


17 


01 


24507 


30170 


A 


A 


N 


Y 


A 


V 


20 


24 


54732 


27777 


A 


R 


Y 


. 






21 


40 


NV22 


12 














22 


54 


24503 


23001 


R 


A 


N 


G 


E 


A 


23 


51 


31013 


45050 





F 


A 


r 


N 


N 


24 


30 


54017 


02454 


E 


R 


A 


V 


A 


R 


25 


73 


01307 


26630 


Y 


A 


E 


X 


T 


E 


26 


50 


27650 


12530 


N 


D 


S 


A 


B 


E 


27 


73 


51502 


70154 


Y 





N 


D 


A 


R 


30 


24 


50323 


00151 


A 


N 


G 


E 


A 





31 


31 


01516 


76630 


F 


A 





U 


T 


E 


32 


54 


01010 


10101 


R 


A 


A 


A 


A A 


33 


70 

CA 


24547 
NV34 


32277 


V 


A 


R 


Y 


• 
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( Enter ) 



Get next svmbol RJ SY SY1 




TP SY2 LN4 
(sentence no. referred to) 



RJ LN2 LNO 
Processor TP LN3 WL4 



rj ix ixl Routine B 
lists line no. in iz 



Get next symbol 
RJ SY SY1 




No 



TP L(5) WL 
(word count) 



RESUME STRING-OUT 



TP L(Resume) WL2 



->i, 




Alarm 
sentence not 



WL 



+1 



Format of Output 

5 Word count of string-out 
output 
Line number 



+2 RESUME Title of string-out 
+3 Call word of sentence 

+4 "Jump to" line number 



Exit 
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RESUME STRING-OUT 



RE RT4400 
RE NA4431 
RE NB4446 

Translation subroutine regions are also needed to assemble 
this tape. 



IA 
MJ 



RJ 
TP 
QJ 
MJ 
EJ 
MJ 



7 MJ 

10 TP 

11 RJ 

12 TP 

13 RJ 

14 RJ 

15 TP 

16 EJ 

17 MJ 

20 TP 

21 TP 

22 RJ 

23 MJ 

24 01 

25 54 

26 

27 65 



RT 



SY 

SY11 

RT4 



RT27 





SY2 

LN2 

LN3 

IX 

SY 
SY2 
RT24 




CT 
SY1 

Q 

RT5 
RT10 J 
RT7 

NA1 

RT1 
LN4 
LN 
WL4 
IX 1 

SY1 
A 

RT20 
NB1 



RT26 WL 

RT25 WL2 

SS SSI 

RT 

22777 77777 

30656 74730 

5 

30506 63050 



Exit 

Get next symbol 

Is symbol a line number? 

Is symbol SENTEN? 

Error print-out: Sentence — (Resume) Failed 
to Reference (VARY) SENTENCE 

Getting line number in proper form and putting 
in output 

Putting referenced line number in Referenced 
Line Number List 

Is next symbol A . ? 

Error print-out: Sentence — (Resume) No 

Space Period Symbol 
Word count to output 
"RESUME" to title line of output 
Get output block written on tape 
Exit 

A . 

RESUME 
SENTEN 



CA RT30 



IA NA 

MJ 

1 RJ WA 



RT 
WA1 



2 TP NA14 UP3 

3 RJ UP2 UP 

4 MJ NA Exit 

5 31 24344 63027 F A 

6 01 66510 15430 A T 

7 31 30543 05026 F E 



Print-Out and Error Reference: Sentence — 
(Resume): 

j Print-Out: Failed to Reference (VARY) Sentence 



I L E 
A R 
REN 



D 
E 
C 



774 



10 


30 


01240 


11770 


E A A A 


( V 


11 


24 


54734 


30165 


A R Y ) 


A S 


12 


30 


50663 


05026 


E N T E 


N C 


13 


30 


22777 


77777 


E. 




14 


40 
CA 

IA 


NA5 
NA15 

NB 


7 









MJ 





RT20 






1 


RJ 


WA 


WAl 


Error Reference and Print-Out: Se; 










(Resume) 




o 

c 

3 


TP 
RJ 


NB11 
UP2 


UPS \ 

UP J 


Print-Out: 


No Space Period Symbol 


4 


MJ 





NB 


Exit 




5 


50 


51016 


55224 


N A s 


P A 


6 


26 


30015 


23054 


C E A P 


E R 


7 


34 


51270 


16573 


I D A 


S Y 


10 


47 


25514 


62277 


M B L 




11 


40 
CA 


NB5 
NB12 


4 
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Flow Chart for Jump String-Out 




-4 

o 



Store number of 
lines (6) in 1st 
line of output 




Is symbol a \ n 
A . 



Yes 



Reference 

error 

routine 



Print-Out: Sen- 
tence has no 

line number fol- 
lowing JUMP 




Gh 



Put line number 
in standard form 
and store in 5th 
line 



Pseudo-Op 
indicator 
to 6th line 



Get next 
symbol 



Is symbol TO, 
SENTEN, STATEM, LINE^ No 
NUMBER, NO., or 
SENT.? 



Yes 



Get next 
symbol 



® 



Get next 
symbol 



Is symbol 
a A .? 



No 



Is symbol 
"TO"? 



s 7> number 
of characters 





No 



Set up 

interpret 

indicator 



-® 



Yes 



<D 



Reference 

error 

routine 



Print -Out: Sen- 
tence is not 

in correct 
form 




Yes/" as interpret 
^ indicator been 
set? 



No 



Yes 



Print-Out: Sen- 
tPnr.A has been 
interpreted to 
mean - jump to 
sentence , 



Send line no. to 
IZ referenced. 
Line No. List 



Write string-out 
block on tape 



Exit, 




JUMP STRING-OUT 

Following JUMP in this instruction there should be the word TO. If this 
word does not appear in this sequence r the following print-out occurs after 

string-out has been completed: Sentence Hasbeen interpreted To Mean — 

Jump To Sentence . No reference is made to the error routine with this 

print-out s 

Any combination of the symbols - TO, SENTEN, STATEM t LINE t NUMBER, NO., 
SENT. - may occur following Jump. The only essential requirement that the 
routine makes is that, if or when none of the above symbols appear, the symbol 
under surveillance must be the line number to which the jump is to be made. 
Of course, the symbols as shown above are merely the beginning in some 
instances of a more complete word. For example, STATEM is the first line output 
of the symbol STATEMENT. The routine only examines the first-line output of 
any symbol. 

Each time one of the above symbols is recognized, a return is made to the 
"Get Next Symbol Routine" for the next symbol. Eventually the loop of 
recognition of these symbols must be broken by a symbol not in the group. 

If a A . occurs before the line number has appeared, the error routine 

is referenced and the print-out is given: Sentence Has No Line Number 

Following Jump. 

If the loop of recognition of the 7 above-named symbols is broken by a 
symbol which exceeds 6 characters, the error routine is referenced, the string- 
out is terminated, and the print-out reads: Sentence Is Not In Correct 

Form. The theory behind this step is that this non-recognized symbol should 
be the line number and, as such, have less than 7 characters. 

If this assumed line number does have less than 7 characters, it is sent to 

the line-number routine to be put into standard form. See the Write-up on the 

line-number routine for what may happen to it here if it fails to meet the 
requirements of a line number. 

The output from the line-number routine is put in the proper place in the 
output. See jump generation write-up for the format of the jump string-out output. 
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Now a final reference is made to the "Get Next Symbol Routine.'" If the 
next symbol is not a A . t the error routine is referenced, the string-out 

is terminated, and the print-out is given: Sentence Is Not in Correct 

Form. 

If this symbol is a A . , a check is made if the sentence is within a 
pseudo op and the proper entry made in the output accordingly. Next the refer- 
enced line number is sent to the reference list by using the IX routine. 
Finally the completed string-out is transferred to tape by using the WT tape- 
write routine. 

Jump String-Out Regions 



RE 


VN3507 


RE 


SY2466 


RE 


LN2037 


RE 


1X1552 


RE 


WT3207 


RE 


DP421 


RE 


CT714 


RE 


TS2762 


RE 


DZ3067 


RE 


SJ4700 


RE 


NQ4730 


RE 


JK4745 


RE 


CN5020 



Subroutine regions used 
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Jump String-Out 





1A 


aj 







MJ 





CT 


1 


TP 


CN 


VN 


2 


TP 


TS4 


VN5 


3 


TP 


CN2 


SJ27 


4 


RJ 


SY 


SY1 


5 


EJ 


CN5 


SJ10 


6 


TP 


CN3 


SJ27 


•7 
1 


D T 
11 


1VT/-V1 A 


NQ6 


10 


RJ 


SY 


SY1 


11 


RJ 


NQ14 


NQ6 


12 


MJ 





SJ10 


13 


TP 


SY2 


LN4 ^ 


14 


RJ 


IJSf2 


LN 


15 


TP 


LN3 


VN4 


16 


RJ 


SY 


SY1 


17 


EJ 


CN1 


SJ21 


20 


MJ 





NQ 


21 


TP 


SJ27 


A \ 
NQ2 J 


22 


ZJ 


SJ23 


23 


TP 


VN4 


A ) 
1X1 J 


24 


RJ 


IX 


25 


RJ 


WT 


WT1 


26 


MJ 





SJ 


27 













CA 


SJ30 






IA 


NQ 







RJ 


UZ 


UZ1 


1 


MJ 





JK4 


2 


TP 


VN4 


JK43 


3 


MJ 





JK10 


4 


RJ 


UZ 


UZ1 


5 


MJ 





JK14 


6 


EJ 


CN1 


NQ4 


7 


RP 


20007 


NQ11 \ 
NQ14 J 


10 


EJ 


CN5 


11 


TP 


SY5 


A 


12 


TJ 


CN4 


SJ13 


13 


MJ 





NQ 


14 


MJ 





30000 




CA 


NQ15 






IA 


JK 







TP 


VN1 


JK26 


1 


TP 


JK20 


UP3 1 
UP J 


2 


RJ 


UP2 


3 


MJ 





30000 


4 


RJ 


JK3 


JK 



Exit 

Number of lines output (6) to 1st line of VN 

Pseudo-op indicator to VN5 

Indicator 1 to SJ27 

Get next symbol 

Is symbol -TO"? 

No. Clearing SJ27 

Comparison subroutine 

Get next symbol 

Comparison subroutine 



Getting line no. in standard form in VN4 

Get next symbol 
Is symbol A. ? 

If zero, without error, print: Sentence_ 
has been interpreted to mean, etc. 

Line no. to ref, list 

Writing block on tape 



Error reference 

Line no. to print-out 

Reference error routine 

Is symbol a space period? 
Is symbol TO, SENTEN, STATEM, LINE NUMBER, 
N0. y SENT.? 

Is 7 > no. of chars. ? 



Line no. to print-out space 
Sentence 

Sentence 
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5 TP 

6 RJ 

7 MJ 

10 RJ 

11 TP 

12 RJ 

13 MJ 

14 RJ 

15 TP 

16 RJ 

17 MJ 

20 

21 40 

22 40 

23 40 

24 65 

25 26 

26 

27 01 

30 66 

31 51 

32 01 

33 01 

34 30 

35 66 

36 66 

37 01 

40 02 

41 66 

42 66 

43 

44 01 

45 01 

46 51 

47 01 

50 54 

51 51 

52 44 
CA 



JK21 

UP2 



JK3 

JK22 

UP2 



JK3 

JK23 

UP2 



JK24 

JK27 

JK33 

JK45 

30506 

30017 



34650 

01345 

54543 

31515 

33246 

30500 

30545 

30270 

47302 

44674 

51016 

30502 



22777 

33246 

01463 

50674 

01315 

71345 

67475 

JK53 



UP3 

UP 

SJ 

JK 

UP3 

UP 

SJ23 

JK 

UP3 

UP 

SJ 

3 

4 

12 

6 

63050 

77777 



15051 

00126 

02666 

44722 J 

50125 

13450 

25430 

16651 

45002 

75201 

53050 

63001 



77777 J 

50150 1 

45030 

72530 

14646 

03201 

22277 J 



is not in correct form 



Sentence 



has been interpreted to mean- 



Jump to sentence_ 



Sentence 



has no line number follow- 



ing jump 



Sentence A 



is not in correct form 



Has been interpreted to mean 
Jump to sentence A. 



Has no line number following jump 



IA 



1 01 









66 

65 

65 



10 46 

11 50 

12 50 

13 65 

CA 



CN 



22777 







51777 

30506 

66246 

34503 

67472 

51227 

30506 

CN14 



6 

77777 

1 



7 

77777 

63050 

63047 

07777 

53054 

77777 

62277 



A. 



T 

S E N T E N 

S T A T E M 

LINE 

NUMBER 

N . 

SENT. 
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Stop String-out Flow Chart 




CD 



(Next symbol 
= A. ? 



No 



Superfluous 
symbol in 
stop sentence 



-*£* 




Stop string-out 
— » tape 




STOP STRING-OUT 



RE SV4400 

String-Out Subroutine regions are needed for assembly of 
this tape. 





IA 


SV 









RJ 


SY 


SY1 


Get next symbol 


1 


EJ 


SV7 


SV5 


= A. ? 


2 


RJ 


WA 


WAl 


No-error 


3 


TP 


SV10 


UP3 


Print-out 


4 


RJ 


UP2 


UP 




5 


RJ 


SS 


SSI 


Yes - string-out- 


6 


MJ 





CT 




7 


01 


22777 


77777 




10 


40 


SV11 


6 




11 


65 


67523 


05431 


S U P E R F 


12 


46 


67516 


76501 


L U U S A 


13 


65 


73472 


55146 


SYMBOL 


14 


01 


34500 


16566 


A I N A S T 


15 


51 


52016 


53050 


P A S E N 


16 


66 


30502 


63022 


T E N C E . 




CA 


SV17 







tape 
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END OF TAPE STRING-OUT 

The End of Tape string-out routine closes out the translation phase 
(Pass I) of the Unicode compilation run. If there was a sub-program preceding 
the "End of Tape" sentence in the input program, the routine checks to see 
if an '"Exit** instruction was included in the sub-program. If not r the error 
bit is set and "No exit in preceding sub-program." is typed on the on-line 
Flexowriter. The routine also checks to see if there was exactly one "Start" 
sentence in the input program and if not, types "More than one start sentence? 
or "No start sentence." on the Flexowriter, whichever applies. 

If there were previous errors in the program or if there was not exactly one 
"Start" sentence, the routine prints the number of excess constant referrals 
and the number of excess referenced-line referrals. The routine then rewinds 
the Unicode System Tape (Servo 1), the Library Tape (Servo 2), the String-out 
Tape (Servo 3 or 6) and the Corrected Problem Tape (Servo 5). The routine then 
types "End of Pass I. Correct errors listed above and recompile." on the on- 
line Flexowriter and stops. 

If there were no errors in the problem, the number of single valued 
variables is stored in fixed location 00007, the End of Tape callword (23000) 
is stored in the string-out, and the string-out is written on tape. The 
String-out Tape is then rewound and the routine exits to the Unicode Service 
Routine in preparation for the next phase of compilation. 
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/'Does heading br^ 
/ indicate within 
W sub-program? 
V [check TS4] 



No 







End o f Tape String-o ut 

Was there exit 
Yes /for preceding sub- 
program? 
[check VDl] 




Yes 







jyj / (WA) type heading 
and set error bit 



Type: NO EXIT 
IN PRECEDING 
SUB-PROGRAM 








Is the number of 
start instructions 
equal to one? 
[check VD] 







Yes 







Is there more 
than one start 
instruction? 




Yes 



Type: MORE THAN 
ONE START 
SENTENCE 




No 



Type: NO START 
SENTENCE 



(EA) print num- N 
ber of excess 
constant referrals/ 




(EE) print numA, 
ber of excess 
referenced-line 
referrals 




(TH) rewind UNICODI 
system tape 



(TH) rewind 
library tape 



(TH) rewind 
string-out tape 



( StopV 



(TH) rewind cor- \ 
rected problem tape) 



Type : END OF PASS I. 
CORRECT ERRORS LIST- 
ED ABOVE AND RE- 
COMPILE. 




-4 

en 



Were there errors 

in problem? [Check 

error bit in UZ2] 




Yes 



Number of single 
valued variables to 
fixed location 
00007. 



End of tape 
call word to 

string-out 




/Exit to UNICODE 
service routine 



'(SS) End of tape \ 
string-out to y 
string -out tape / 



(TH) rewind 
string-out tape 



Flow Charts for Subroutines Supplied to End-of-Tape String-Out 



Print-Out of FX13, Number of Excess Constant Referrals 




Is number of excess constant^ 



No 



referrals zero? 




Print-Out: Excess 
constant referrals 



Exit 




Converts number 
to decimal and 

prints it out 



Print-Out of 1X47, Number of Excess Referenced-Line Referrals 




Is number of excess refer- 
enced-line referrals zero? 



No 




Print-Out: Excess 
referenced-line 
referrals 



Exit 




Converts number to 
decimal and prints 

it out 



Single Digit Print-Out 




Add dummy print 
command to octal 
digit to get 
proper Flex code 
for digit in list 



Printing out digit 
via its Flex code 



Exit 
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Octal to Decimal Print-Out for Numbers < 77777 Q and > 




<Is 10 > \ No 
number? 



Yes 



rh 



fs 102>\ No /Is 10 3 >\ No /Is lO 4 :^ No 

number? 



number? 



ji umber? 



Yes 






Exit 



Yes 






Yes 







Print -Out: 
Over 32,767. 



No /Is IOOOOOq 
l< number? 




Yes 

6 



d> 



Number + 10* 
to convert to 

decimal 



Printing quotient 
digit 



-d> 



©- 



Number -r 10 
to convert to 

decimal 



Printing quotient 
digit 



& 



Number «r 102 
to convert to 
decimal 



Printing quotient 
digit 



*& 



Number + 10 
to convert to 
decimal 



Exit, 




Printing decimal 
digit 



-©- 



Printing quotient 
digit 
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Regions for End of Tape String-Out 
(String-out Subroutine Regions Also Required) 



® 



RE 


ZA77000 




RE 


TV4400 




RE 


TW4435 




RE 


TX4447 




RE 


TY4455 




RE 


EA4502 




RE 


EE4520 




RE 


NU4537 




RE 


ZU4555 






IA 


TV 







MJ 





ZA10 


1 


TP 


T34 


Q 


2 


QJ 


TV3 


TV10 


3 


TP 


VD1 


Q 


4 


QJ 


TV10 


TV5 


5 


RJ 


WA 


WA1 


6 


TP 


75552 


UP3 


7 


RJ 


DP2 


UP 


10 


TP 


VD 


A 


11 


EJ 


TX 


TW 


12 


ZJ 


TV13 


TV15 


13 


TP 


TY 


DP3 


14 


MJ 





TV16 


15 


TP 


TY6 


DP3 


16 


RJ 


DP2 


DP 


17 


RJ 


EA 


EA1 


20 


RJ 


EE 


EE1 


21 


TP 


TX2 


TH3 


22 


RJ 


TH2 


TH 


23 


TP 


TX3 


TH3 


24 


RJ 


TH2 


TH 


25 


TP 


TX4 


A 


26 


AT 


TN 


TH3 


27 


RJ 


TH2 


TH 


30 


TP 


TX5 


TH3 


31 


RJ 


TH2 


TH 


32 


TP 


TY12 


DP3 


33 


RJ 


DP2 


DP 


34 


MS 





TV34 




CA 


TV35 





Exit -> UNICODE serv. rtn. (read 1 blk DNICODE 

tape & jump to 1st word) 
Heading bit — > Q35 

Within sub-program (pseudo operation)? 
Exit bit -»Q3f 
Was there exit inst, for preceding sub-program 

Parameter — ^Uniprint 

Print: NO EXIT IN PRECEDING SUB-PROGRAM 

#Start instructions — ■> A 

flStart inst. = 1? 

tfStart inst. = 0? No — > more than 1 start inst. 

Alarm #1 parameter — > Uniprint 

Alarm #2 parameter — > Uniprint 

Print alarm 

Print ^excess constant referrals 

Print * excess referenced-line referrals 

Rewind UNICODE tape (servo #1) 

Rewind library tape (servo #2) 
Codeword to rewind stringout tape (servo #3) 
— »A 

Adv. servo no. by 3 -> servo #6 if 7 servos 
Rewind stringout tape (servo #3 or #6) 

Rewind corrected problem tape (servo #5) 

Print: END OF PASS I. CORRECT ERRORS ETC. 
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© 



IA 
TP 
ZJ 
TP 

AT 



4 TP 

5 RJ 

6 TP 

7 AT 

10 RJ 

11 MJ 
CA 



TW 

DZ2 A 

TV17 TW2 

YB1 A 

TX 7 

TX1 WL3 

SS SSI 

•TX4 A 

TN 1H3 

TH2 TH 

TV 
TW12 



* errors in problem — > A 
Were there errors in program? 

£ single valued variables less 1 — > A 

# single valued variables — > n v n of fixed 
loc. 7 

End of tape callword (23000)— » string-out 

End of tape string-out — >tape 

Codeword to rewind string-out tape (servo #3) 

— >A 

Adv. servo no. by 3— > Servo #6 if 7 servos 

Rewind string-out tape 



IA 





10 

10 

10 

10 

CA 



TX 





1 

2 

3 

5 

TX6 



1 

23000 











Codeword to rewind UNICODE tape 

Codeword to rewind library tape 

Codeword to rewind string-out tape (5 servos) 

Codeword to rewind corrected problem tape 



IA TY 

00 TY1 5 

1 47 51543 00166 

2 33 24500 15150 

3 30 01656 62454 

4 66 01653 05066 

5 30 50263 02277 

6 00 TH 3 

7 50 51016 56624 

in C/i A Am A c'jrkctrv 

11 66 30502 63022 

12 00 TY13 12 

13 30 52070 15131 

14 01 52246 56501 

15 34 22010 12651 

16 54 54302 66601 

17 30 54545 15465 

20 01 46346 56630 

21 27 01242 55170 

22 30 01245 02701 

23 54 30265 14752 

24 34 46302 27777 
CA TY25 



M R E A T 

H A N A N 

E A S T A R 

T A S E N T 

E N C E . 77 

N A S T A 

D T A C 17 M 

11 x / \ tj «J J.* 

T E N C E . 

E N D A F 

A P A S S A 

I . A A C 

R R E C T A 
ERRORS 

A L I S T E 

D A A B V 

E A A N D A 

R E C M P 

I L E . 77 77 
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Print-Out of FX13, Number of Excess Constant Referrals 





IA 


EA 









MJ 





30000 


Exit 


1 

2 


TP 
ZJ 


FX13 
EA3 


A 1 
EA J 


Is the number in FX13 zero? 


3 
4 


TP 
RJ 


EAIO 
UP2 


UP3-I 
UP J 


Print-Out: EXCESS CONSTANT 


5 
6 


TP 
RJ 


FXX3 

zu 


A \ 
ZU1 J 


Converts number to decimal 


7 


MJ 





EA 




10 





EA11 


5 


Parameter for print-out 


11 


30 


72263 


06565 


EXCESS 


12 


01 


26515 


06566 


A C N S T 


13 


24 


50660 


15430 


A N T A R E 


14 


31 


30545 


42446 


F E R R A L 


15 


65 
CA 


02027 
EA16 


77777 


s - - 



Print-Out of IX47 r Number of Excess Referenced-Line Referrals 





IA 


EE 









MJ 





30000 


Exit 


1 

2 


TP 
ZJ 


1X47 
EE3 


A } 

EE J 


Is the number zero? 


3 
4 


TP 
RJ 


EE10 
UP2 


UP3"l 
UP J 


Print-Out: EXCESS REFER! 


5 
6 


TP 
RJ 


1X47 

ZU 


A \ 
ZU1 J 


Converts number to deci 


7 


MJ 





EE 




10 





EE11 


6 


Parameter for Print-Out 


11 


30 


72263 


06565 


EXCESS 


12 


01 


54303 


13054 


A R E F E R 


13 


30 


50263 


02702 


E N C E D - 


14 


46 


34503 


00154 


LINEAR 


15 


30 


31305 


45424 


E F E R R A 


16 


46 
CA 


65020 
EE17 


27777 


L S - - 



Input Digit in A v . Single Digit Print-Out Routine 







IA 


NU 









AT 


NU3 


NU1 




1 


PR 










2 


MJ 





30000 




3 


PR 





NU4 




4 








37 




5 








52 


Flex 


6 








74 


Codes 


7 








70 



Entry. Adds dummy print command to octal 

digit & puts into next instruction 
Prints out decimal digit 
Exit 

Dummy Print Command 

1 
2 
3 



790 



10 



64 





11 








62 


5 


Flex 


12 








66 


o 


Codes 


13' 








72 


7 




14 








60 


8 




15 


.0 





33 


9 



CA NU16 

Input in A v . Octal to Decimal Print-Out for Numbers < 77777 
Print-Out for Numbers > 77777 is: OVER 32,767 



IA 
MJ 



TJ 
TJ 
TJ 
TJ 
TJ 
TP 
RJ 



10 MJ 

11 DV 

12 RJ 

13 DV 

14 RJ 

15 DV 

16 RJ 

17 DV 

20 RJ 

21 RJ 

22 PR 

23 MJ 

24 TP 

25 TP 

26 RJ 

27 TP 

30 MJ 

31 40 

32 

33 

34 

35 

36 

37 51 

40 05 

41 

42 



zu 



ZU32 

ZU33 

ZU34 

ZU35 

ZU41 

ZU31 

UP2 



ZU35 

ZU30 

ZU34 

ZU30 

ZU33 

ZU30 

ZU32 

ZU30 

NU2 





A 

Q 

NU2 

ZU42 



ZU37 











70305 

23121 

1 





} 



30000 

ZU21 

ZU17 

ZU15 

ZU13 

ZU11 

UP3 

UP 

ZU 

Q 

ZU24 

Q 
ZU24 

Q 

ZU24 

Q 

ZU24 

NU 

ZU36 

ZU 

ZU42 "* 

A 

NU 

A 

3000QJ 

2 

12 

144 

1750 

23420 

45 

40106 

11222 







Exit 

Entry. Is 10 > no.? 

Is 10 2 > no? 

Is 10 3 > no.? 

Is 10 4 > no.? 

Is 100 OOOg > no.? 

Error print-out: OVER 32,767 

Jump to exit 

t 10 4 to convert to decimal 

Printing out digit 

t c 10 3 to convert to decimal 

Printing digit 

f 10^ to convert to decimal 

Printing digit 

r 10 to convert to decimal 

Printing digit 

Printing digit 

Printing carriage return 

Jump to exit 

Subroutine to facilitate continued conversion 
of octal number to decimal and print out 
decimal digit obtained 



Parameter for print-out: 
10 9 
10 i 

10* 

Carriage return 
V E R A 3 
2,767. 

ioo,ooo 8 < 10 5 
Temporary 



OVER 32 t 767 



CA ZU43 
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Exit String-out Flow Chart 




Within 
sub-program 



to 



Alarm printout: 
SUPERFLUOUS 
SYMBOL IN EXIT 
SENTENCE 



No 



Alarm print-out: 
EXIT SENTENCE NOT 
ALLOWED OUTSIDE SUB- 
PROGRAM 



Exit String-Out 



RE SW4400 
RE SX4416 



String-Out Subroutine regions also needed to assemble this tape 



IA 
n r.t 



EJ 
RJ 
TP 
RJ 
TP 
QJ 
RJ 



10 TP 

11 RJ 

12 TV 

13 RJ 

14 TP 

15 MJ 
CA 



SW 

SY 

SX 

WA 

SX1 

UP2 

TS4 

SW12 

WA 

SX12 

UP2 

TS4 

SS 

SX11 



SW16 



SY1 
SW5 
WA1 
UP3 

UP 

Q 

SW7 

WAl 

UP3 

UP 

WL4 

SSI 

VD1 

CT 



Get next symbol 

= A. ? 

No; get heading & 
Print out error sentence 

Yes; 

Op of TS4 = 40? (Within Subprogram?) 

No; get heading & 

Print out alarm sentence 

Yes, call word — >WL4 

Output to tape 

Indicator to VD1 that an Exit has been found 

in the last pseudo operation 
Exit 



IA 

01 

1 40 

2 65 

3 46 

4 65 

5 01 

L O A 

O OH 

7 66 

10 77 

11 40 

12 40 

13 30 

14 30 

15 30 

16 24 

17 27 

20 34 

21 25 

22 54 
CA 



SX 

22777 

SX2 

67523 

67516 

73472 

34500 

OOV/IO 

30502 





SX13 

72346 

50663 

01505 

46465 

01516 

27300 

01525 

24472 

SX23 



77777 

6 

05431 

76501 

55146 

13072 

COACA 

OOVOKJ 

63022 





10 

60L65 

05026 

16601 

17130 

76665 

16567 

45132 

27777 



A. 

S U P E R F 

L U U S A 
SYMBOL 

A I N A E X 

I T A S E N 

T E N C E . 
mask 



E X I T A S 

E N T E N C 

E A N T A 

A L L W E 

D A U T S 

I D E A S U 

B A P R G 
RAM. 
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Start String-out Flow Chart 







Sentence sentinel 



No. 



EQUATN? 



o 



Yes 



Increase Call-word 
type counter 



Set sentence 
sentinel = 
START 



27000 to call 
3|word indicator 



Next symbol = 



A.? 



No 



Alarm printout : 
SUPERFLUOUS 
SYMBOL IN START 
SENTENCE 



Yes 



-6 



Exit 




Start string-out 
to tape 



START STRING-OUT 



RE SU4400 



String-Out Subroutine regions are needed for assembly of this tape 





IA 


SU 

















RA 


VD 


SU17 


Increase 


VD 


by 


1 


1 

2 


SP 
EJ 


WL2 
SU20 


\ ltf TO - 

SU4 J ' W " 


EQUATi 


\ T ? 




3 


MJ 





SU5 


No; do not 


increase VB4 


4 


RJ 


XJ 


XJ1 


Yes; 


increase 1 


ITC4 


5 


TP 


SU21 


WL2 


START 


— > 


WL2 




6 
7 


TP 
AT 


SU22 
VB4 


A 1 

WL3 * Cal1 


word + 


(VB4)— > WL 


10 


RJ 


SY 


SY1 


Get next 


symbol 


11 


EJ 


SU23 


SU15 


-A. 


? 








12 


RJ 


WA 


WA1 ' 


No; error 






13 


TP 


SU24 


UP3 


Print 


-out 






14 


RJ 


UP2 


UP . 












15 


RJ 


SS 


SSI 


Strin 


g-out- 


->t 


ape 


16 


MJ 





CT 


Exit 










17 








1 












20 


30 


53672 


46650 


E Q 


D 


A 


T 


N 


21 


65 


66245 


46677 


S T 


A 


R 


T 


A 


22 








27000 


c/w 










23 


01 


22777 


77777 


A . 










24 


40 


SU25 


7 












25 


65 


67523 


05431 


s u 


P 


E 


R 


F 


26 


46 


67516 


76501 


L U 





U 


S 


A 


27 


65 


73472 


55146 


S Y 


M 


B 





L 


30 


01 


34500 


16566 


A I 


N 


A 


S 


T 


31 


24 


54660 


16530 


A R 


T 


A 


*•* 


£ 


32 


50 


66305 


02630 


N T 


E 


N 


c 


E 


33 


22 

CA 


77777 
SU34 


77777 


• 
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EQUATION TRANSLATION ROUTINE 

When an equation is encountered in a UNICODE Program the translation con- 
trol transfers this routine from drum to core and jumps to it. The main func- 
tions of the routine are to make up a translation list to be used to generate 
machine code, assign call words to symbols, and detect and type out errors. 

The translation list is made up by each translation routine as an output 
(Region WL). The equation translation routine is unique in one use of this 
list in that it keeps another list within the translation list. This is called 
the function dummies list and occupies locations WL4-WL23 or 16^q locations. 
Hence there is room for 8 two-word items, the first word being the excess- 
three code for the symbol and the second word the dummy call word of this sym- 
bol. WLO-WL3 is the heading and the coded symbols start at WL24. 

In an equation before START, the symbol is assigned a call word as 
follows: 

1) If the symbol is in the Combination List, it already has a call word 
which determines the type of symbol with one exception. If the call 
word is 65xxx and the next symbol is an open parenthesis, the call 
word is changed to 66xxx and case 3 applies. If the symbol is that 
of a subscripted variable, the subscripts are assigned dummy call 
words and put in the list at WL4-WL23 and are handled similarly to 
the dummy arguments of a function. 

2) If its first character is I, J, K, L or M, it is assigned a 64xxx 
call word and the equation is assumed to be fixed point. 

3) If neither of the above cases applies, the next symbol is checked and 
if it is an open parenthesis the variable is assigned a 66xxx call 
word and a function mode is set. In this case all variables within 
the set of parentheses on the left are function dummies and put in 
the list at WL4-WL23. These dummies apply only to this particular 
equation. 

After START no function call words are assigned by the equation transla- 
tor but the pseudo operation heading translator assigns symbols dummy function 
call words, if equated to a real function by a COMPUTE. In an equation no 
arguments should be written with a function if the function appears on the 
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right or if it appears after START. 

Operation symbols are determined to be fixed point if they appear in a 
fixed-point equation (determined by the first symbol) or if they appear when 
in the subscript mode; otherwise they are assumed to be floating point. The 
list of errors found in this paper suggest what cannot be written in an 
equation. 

The following pages contain: 

1) A list of call words or special codes assigned by the equation 
translator. 

2) An example of the output for a function. 

3) A list of error prints. 

4. Explanations of some of the subroutines. 
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Special Codes Used by Equation Translation 



Op 


u 


V 










10 


Absolute value (open), floating and fixed 








12 


Absolute value (closed), floating 








11 


Absolute value (closed), fixed 








20 


+ floating 








21 


+ fixed 








30 


- floating binary 








31 


- fixed binary 








32 


- floating unary 








33 


- fixed unary 








40 


, ; comma or semicolon 








50 


= equals sign 








60 


* floating multiply 








61 


* fixed multiply 








70 


/ floating divide 








71 


/ fixed divide 








100 


POW 








120 


A . (space period) 





1 





( open parenthesis 





2 





) closed parenthesis 








17100 


Superscript = -1 (superscript 1 is ignored) 








16000 


Superscript = 1/2 








16100 


Superscript = -1/2 








15000 


Superscript = 2 








15100 


Superscript = -2 








14000 


Superscript = 3 








14100 


Superscript = -3 








13Qxx 


Superscript = +4 to +77 Q (4 = xx = 77) 
Superscript = -4 to -77o (4 = xx - 77) 
1 Integral POW j >63 








131xx 








101 








25xxx 


In equation for 66xxx, 65xxx or 64xxx 
symbol, before START 








24xxx 


Equation for 77xxx type symbol, before 
START. 
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EXAMPLE 
Output of Equation Translators for an equation which occurs before START: 
F(xl, x2 (I)) = - | xl* ] 3 + x2 (J) *S2 (I, L) /R POW SIN YA. 





OP 


u 


V 


WL 








55 


WL1 


01 


06142 


21001 


UTT 

"Ufa 


30 


53672 


46650 


WL3 








25xxx 


WL4 


72 


04777 


77777 


WL5 








62000 


WL6 


72 


05777 


77777 


7 








75001 


10 


34 


77777 


77777 


11 








62003 


WL24 








66000 










50 










32 










10 










62000 










12 










14000 










20 










75001 







1 













64xxx 







2 













60 










77xxx 







1 













62003 










40 










64xxx 







2 













70 










65xxx 










100 










5xxxx 










65xxx 










120 



# words in list 

Line number (excess 3) 39.5 

PAITATIM fov/»ooe thfoot 

uyunxn wAvvao u«i.»/v/ 

Sentence call word (x=octal digit) 

xl (excess three) 

Call word of xL 

x2 

Call word of x2 

I 

Call word of I 

1 WL12-WL23=0 



Heading 



The function 

dummy list 

for this equation 



xl 

I 

Superscript 3 

+ 

x2 

( 

J 

) 
* 

S2 

( 

I 

L 

) 

/ 

R 

POW 

SIN 

Y 

A. 



The Translated 
Equation 
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Error Texts for Equations 

El. Function symbol, , (sub program dummy) in fixed point equation. 

E2. Subscripted variable symbol, , (sub program 'dummy ) in fixed point 

equation. 

E3. Floating point variable, , (sub program dummy) used in fixed point 

equation. 

E4. Function symbol, , (sub program dummy) among subscripts of . 

E5. Subscripted variable symbol, , (sub program dummy) among subscripts 

of . 

E6. Floating point variable, , (sub program dummy) among subscripts of 

E7. Fixed point variable, , (sub program dummy) in floating pt. equation 

E8. Subscripted variable symbol, , among subscripts of . 

E9. Library routine, — - — , among subscripts of . 

E10. Function, , among subscripts of . 

Ell. Floating point variable, , among subscripts of . 

E12. Fixed point variable, , in floating point equation. 

E13. Library routine, , in fixed point equation. 

E14. Floating point symbol, in fixed point equation. 

E15. Function, , in fixed point equation. 

E16. Subscripted variable symbol, , in fixed point equation. 

E17. Library routine symbol, , with more than one argument, not followed 

by open parenthesis. 

E18. Subscripted variable symbol, , not followed by an open parenthesis. 

E19. Subscripted variable symbol, , (sub program dummy) not followed by 

an open parenthesis. 

E20. Subscripted variable symbol, , (function dummy) among subscripts of 
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E21. Floating point variable, , (function dummy) among subscripts of 

E22. Fixed point variable, f (function dummy) in floating point equation, 

E23. Subscripted variable symbol, , (function dummy) not followed by an 

open parenthesis. 

E24. More than one separate equation for . 

E25. Superfluous symbols on left. 

E26. Function, — — , on left, not followed by an open parenthesis. Rest of 

this sentence not checked. 
E27. Library routine symbol, , is first symbol of sentence. Rest of 

sentence not checked. 
E28. An Equation for in the range of a VARY sentence in which ~ 

appears. 

E29. Illegal symbol ( ) for left of equation. 

E30. More than one subscript on , an argument of the function . 

E31. Library routine symbol, , on left, among arguments of the function 

E32. Superscript symbol, , among subscripts of . 

E33. Superscript symbol, , in fixed point equation. 

E34. More than four superscript symbols in sequence. 

E35. POW operation symbol among subscripts of . 

E36. POW operation symbol in fixed point equation. 

E37. Number of library routine operands (by comma count) not equal to number 

listed for this routine. 

E38. Interlocking parenthesis and absolute value signs. (1)1 

E39. Closed parenthesis appears with no corresponding open. 
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E40. Number of subscripts on (by comma count) is not equal to number 

obtained from dimension sentence, 

E41. Open parenthesis among subscripts of 

E42. Illegal symbol, , for right of equation. 

E43. Incorrect use of comma. 

E44. Number of equals signs not equal to one. 

E45. Some open parentheses not closed. 

E46. Number of open absolute value signs not equal to number of closed. 

E47. Number of open parentheses on left not equal to number of closed. 

E48. Superfluous arguments on function — — . 

E49. Within arguments of more than 7 library routines. Arguments of — — 

not checked. 

E50. Too many dummy arguments on function -~ — •. Rest of this sentence not 

checked. 

E51. Pseudo operation symbol, ~- , on right. 

E52. Incorrect symbol sequence. —JEL ~JE 

E53. Closed absolute value appears with no corresponding open. 

E54. Open parenthesis, on left, among subscripts of — — . 

E55. Incorrect use of open parenthesis on left among arguments of 

E56. Incorrect use of comma among arguments of 

E57. More than 29 unclosed open parentheses and/or absolute value signs. 

E58. Constant illegal on left, before start. 
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SYMBOL PAIR CHECKER 

Almost every pair of symbols is checked by this routine. The bit in 
the array on the following page corresponding to the symbol pair consisting of 
the last two symbols picked up is checked. If it is a 1. the pair is illegal 
and the error is printed. The left symbol is picked up from SZ2 and the 
right from SY2. 

After checking a pair the routine sets the right symbol as the left 
symbol for the next check. Hence, before entering the routine, the new right 
symbol must be set as an input. 

The left symbol is indicated by an address in PC2 and the right symbol 
by a shift count in PCS. The addresses range from PD2 to PD22 and the shifts 
from to 20. Notice from the way that the array is set up that to change a 
shift count to an address it is only necessary to add the shift count to 
address PD2. This is the way a right symbol becomes the next left symbol. 

If for some reason it is desired that no error be printed out for a symbol, 
the shift count is set to 20 and the symbol pairs with any other legally. 

The codes for the error print of this routine are with those of the 
translation subroutines. It is called F18 and is in region FI. 
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Meaning of Region PD Used by Symbol Pair Checker (PC) 



Ri< 


jht Symbol 








/~\ 


u 










. T3 


0> 










+j a> 


■p 










W (0 


■p 










c o 


CO 










O i-l 


E 




* 






• O O 


/"• > 




+J 






U W 


■»-> c 




to 






CO ^ 


- 0) 




c \ 


| 


• •■ 


> o*— 


C Q, 




o 








w o 




O Vi 


u 


u 


• • u 


0) *-> ' 


D33\ I 


o 


o 


O Z 


ACS o 


&-< 


ho aa 


Q. 




H 


3 < 


II i-3 Pu to D 


Q * 


+ 


*fe 


C/3 > <"* 



Ad- 
dress 



Octal 





( 





1 1 


1 1 


1 


1 1 


1 


1 


PD2 = 


67642 




) or | (closed) 


1 


1 


1 








1 1 


1 1 


PD3 = 


112035 




VAR. or Const. 


1 


1 


1 








1 1 


1 1 


PD4 = 


112035 




Sub. Var. 


1 


1 


1 








1 1 


1 


PD5 = 


112034 




FTN 


1 


1 


1 








1 1 


1 


PD6 = 


112034 




, or ; 





1 1 


1 1 


1 


1 1 


1 


1 


PD7 = 


67642 


I— 1 

o 


+ or - 





1 


1 1 


1 


1 1 1 


1 


1 


PD10 = 


47742 


E 


* or / 





1 1 


1 1 


1 


1 1 


1 


1 


PDll = 


67642 


C/3 


Up Const. 


1 


1 





1 


1 


1 1 


1 1 


PD12 = 


111435 


4-> 


Up - 


1 


1 1 


1 1 


1 


1 1 


1 1 1 


1 1 1 


PD13 = 


157377 


CD 


Up / 


1 


1 1 1 


1 1 


1 


1 1 


1 1 1 


1 1 1 


PD14 = 


177377 


i-J 


POW 





1 


1 1 


1 


1 1 


1 


1 


PD15 = 


47642 




LIB 





1 1 


1 1 


1 


1 1 


1 


1 


PD16 = 


67642 




= 





1 1 


1 1 


1 


1 1 


1 


1 


PD17 = 


67642 




A. 


1 


1 1 1 


1 1 


1 


1 1 1 


1 1 1 


1 1 1 


PD20 =■ 


177777 




| (open) 





1 


1 1 


1 


1 1 


1 


1 


PD21 = 


47642 




Doesn 't matter 























PD22 = 






To see if a symbol pair is legal, find the left symbol in the column 
on the left and the right symbol in the row at the top. If the box of 
intersection of the row and column of this symbol pair contains a 1, the 
pair is illegal. If it contains a zero t the pair is legal. 

= legal symbol pair 

1 = illegal symbol pair 
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Get Call Word from Dummy Function List 

This routine searches addresses WL4 - WL23 for the symbol in SY2. If 
the symbol is found it is put in TU2 and its call word is in TU3 in the v 
address. Reference the routine as follows: 



RJ 


TU 


TU1 


MJ 





(Not in list) 


MJ 





(In list) 



Send Call Word to Dummy Function List 

The XS3 code for the symbol is sent to TP2 and the dummy call word 
to TP3 then 

RJ TP TP1 
sends the two-word file to the list WL4 - WL23. 

Delete Library or Function Arguments, or Subscripts 

Sometimes an error is encountered and the arguments of a function or 
library routine or subscripts of a variable should be ignored without checking 
so the number of errors doesn *t become excessive. 



To use the routine 



RJ FV FV1 

MJ (If A. is encountered) 

MJ (after deletion) 
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liquation Translation Cl'aije 1) 

T.eft 

First Symbol 



In VARY list 



In sub program list 



Not in 

Sub program 

list 




After START 



Before START 



-Q I ' CBL1,t ,Q 



1 Fit. 

/*\ Not in CB list / ~\ Var. 





Fixed pt. 


Var 


v 




CW = 64XXX 




Set fixed eq. 




J 




File to 





CW = 5XXXX /^"*\ 
»E27-*( CTj 

CW = 64XXX 



Set Fixed Eq. 



f~~ \_ File to 

\_ i/ r CB list 




Get 
symbo 




E47 

Set level = 0- 







Key 






o-- 


— decision 


CW - call word 




E27 - Error number 27 








(See list of errors for text) 


1 — 1 




CT.- Trans. Control 




Var. - variable 


- 


— referenced 


A, Al, A2 - decision on 


1st 




1 1 


point 


page 




X - octal digit 






B, Bl, B2 - decision on 


2nd 


^ - Space code 






page 




a.- Space period 






etc. 




Ftn. -Function 






CB - Combination list 




args - arguments 






Eq. - Equation 




Ss. - Subscript 






Fit pt.- Floating point 




P. Op. - pseudo operation 






( - open parenthesis 










or parenthesis 




| - absolute value 






) - closed parenthesis 




pow - power 
LIBRARY - library 



Equation Translation (Page 2) 

Left 

Not First Symbol 




CW to 
CW = 65XXX trans - list 
File to CB List 



Right 



Equation Translation (Page 3) 
Symbols on Right 





Equation Translation (Page 4) 
Symbols on Bight CCont.) 



-».CW = 2 000OO 



Last raiser = ( 




Lower level 



— o 



Not too low 



Level 

too 

low 





p. 3 



o 



Leaving Library mode 



Leaving Ss. 
mode 



Clear subscript 
mode 



"Subscript not correct 



"^Subscript correct 



© 

p. 3 



Commas correct 



♦ Clear Library from List 




7) p. 



CW = 67XXX -WD P. 3 

Convert to Fixed pt. \~J 




Equation Translation (Page 5) 
Bight (Cont.) 



Before START - Variable 
1 




:ipt mode»( C ) 



p. 3 



-» E23 *f C\ 



p.3 



»■ Set Subscript mode -*( C J 



Equation Translation (Page 6) 
Right (Cont.) 



After START - VARIABLE 



^CW = 64XXX E13 

CW = 5XXXX 




o 



Subscript mode 



A p " 0p - List Q-l 



P. Op. List 



Fl. Eq. 




*Qlhl± O 



Subscript mode 



Fl. Variable 



Fixed Eq. 




Not Subscript mode 



_/~S CW = 63XXX A 



Fixed Variable 



© 



df © 



Not in CB List 



Q^-EB^t 



Q— CW = 64XXX « Fixed Variable Q 




Ell 
CW = 65XXX 



Equation Translation Routine 



RE 


FR04000 


Setups 


RE 


CA0402? 




RE 


CG04067 




RE 


CH04127 


Constants 


RE 


CI04167 




RE 


CK04227 J 




RE 


DA04243 


Left 


RE 


FJ04260 




RE 


FK04271 




RE 


FL04303 




RE 


FM04313 


Right 


RE 


FN04323 




RE 


FP04337 




RE 


FD04343 J 




RE 


FV04361 


Subroutine 


RE 


HC04405 




RE 


HF04412 




RE 


HG04417 




RE 


HH04432 




RE 


HK04444 




RE 


HL04455 




RE 


HM04474 




RE 


HN04506 




RE 


HQ04515 




RE 


HR04524 




RE 


HS04535 




RE 


HD04551 




RE 


HV04564 




RE 


HW 04623 




RE 


HX04645 




RE 


HY04666 




RE 


HZ04673 




RE 


MA04702 




RE 


MB04717 




RE 


MC04724 




RE 


MD04753 




RE 


ME05001 


Right 


RE 


MG05032 




RE 


MH05046 




RE 


Mr05067 




RE 


MJ05211 




RE 


MK05220 




RE 


ML05236 




RE 


MM05253 




RE 


MN05300 




RE 


MP05310 




RE 


MQ05315 




RE 


MS05337 




RE 


MT05343 


* 



812 



RE 


MU05372 




RE 


MV05404 




RE 


MW05410 




RE 


MX05412 




RE 


MY05415 




RE 


MZ05431 




RE 


NA05434 




RE 


NB05447 




RE 


NC05461 




RE 


ND05471 




RE 


NE05502 






NF05511 




RE 


NG05532 




RE 


NH05551 




RE 


N 105576 




RE 


NJ05621 




RE 


NK05626 




RE 


NL05645 | Right 


RE 


NN05652 




RE 


NP05670 




RE 


NS05676 




RE 


NV05715 




RE 


NW05733 




RE 


NX 05740 




RE 


NY05745 




RE 


NZ05753 . 




RE 


PC05762 ' 




RE 


PD06006 




RE 


TP 06031 


Subroutines 


RE 


TU06057 




RE 


WC 06077 




RE 


WD06104 . 




RE 


XC06115 ' 




RE 


XD06123 




RE 


XE06152 


Right 


RE 


XF06205 




RE 


XG06220 




RE 


XH06237 




RE 


X 106251 J 




RE 


XL06260 


Subroutine 


RE 


XQ06276 ' 




RE 


XR06317 




RE 


XT06344 


Right 


RE 


XV06362 




RE 


XW06400 




RE 


XY06405 




RE 


XZ06432 . 




RE 


YB06444 




RE 


YC06511 




RE 


YD 06532 


Left 


RE 


YE06537 




RE 


YF06541 , 





813 



RE 


YG06560 


RE 


YH06571 


RE 


YI06603 


RE 


YJ06611 


RE 


YK06623 


RE 


YL06644 


RE 


YM06673 


RE 


YN06705 


RE 


YP06723 


RE 


YQ06731 


RE 


YR06745 


RE 


YS06751 


RE 


YT06765 


RE 


YU07003 


RE 


YV07016 


RE 


YW07054 


RE 


YX07075 


RE 


YY07115 


RE 


YZ07135 


RE 


ZA07151 


RE 


ZB07163 


RE 


ZC07212 


RE 


ZD07226 


RE 


ZE07262 


RE 


ZF07271 


RE 


ZG07300 


RE 


ZH07313 


RE 


ZI07330 


RE 


ZJ07341 


RE 


ZK07346 


RE 


ZL07353 


RE 


ZM07364 


RE 


ZN07416 


RE 


ZQ07434 


RE 


ZR07452 


RE 


ZT07464 


RE 


ZV07510 


RE 


ZW07525 


RE 


ZX07556 


RE 


ZY07571 


RE 


ZZ07615 


RE 


KX 07620 


RE 


KY07645 


RE 


VA07663 


RE 


VC07725 


RE 


EF73047 


RE 


EG73106 


RE 


EH73146 


RE 


EI73212 


RE 


EJ73251 


RE 


EK73300 


RE 


EL73334 



Left 



A 



Left 



Right 



Left 
Variables 

Error Text Constants 



814 



RE 


EM73362 


RE 


EN73410 


RE 


EP73452 


RE 


ER73515 


RE 


EX73556 


RE 


GA73611 


RE 


GB73643 


RE 


GC73706 


RE 


GD73737 


RE 


GE74000 


RE 


GF74027 


RE 


GH74052 


RE 


GI74113 


RE 


GJ74151 


RE 


GK74202 


RE 


GL74225 


RE 


GM74255 


RE 


GP74306 


RE 


GQ74343 


RE 


GV74375 


RE 


FQ74444 


RE 


GY74461 


RE 


GZ74510 



Error Text Constants 
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Equation Translation - Setups and Subroutines 



Region Name 

FR Setups 

TU Get CW from dummy Ftn. list 

TP Send CW to dummy Ftn. list 

XL Lower (level on left 

FV Delete Lib. r Ss., Ftn. 

WC Constants & variables 

WD Superfluous args. error 

PC Symbol pair checker 

PD Constants 

MI Lower upper case XS3 constant 



Setups 





IA 


FR 













MJ 





CT 


Exit 






1 


RP 


10042 


FR3] 

VA j 


Clear VA 




2 


TP 


CA27 








3 
4 


RP 
TP 


10040 
CA27 


FR5] 
VC J 


Clear VC 




5 


TP 


CH15 


VA15 


= 





2 2 


6 


TP 


CH31 


VA23 


= 





100 


7 


TP 


CH22 


VA24 


= 





1 


10 


TP 


CI31 


VA40 


= 





7 


11 


TP 


CA3 


VA1 


= 





1 


12 


TP 


CA3 


VA2 


= 





1 


13 


TP 


CK1 


VC10 


= 





VC10 VC10 


14 


TP 


CK2 


VC20 


= 





VC20 VC20 


15 


TP 


CK3 


VC30 


= 





VC30 VC30 


16 


TP 


CK4 


EW3 


EW3 


= 


WL23 WL23 


17 


TP 


CK5 


TP4 


TP4 


= 


WL4 WL4 


20 


TP 


CA27 


XL2 


Clear print ind. 


21 
22 


TP 


VD 
FR23 


A ) 
FR24 J 


After ♦ 


Before -> 1 


23 


TP 


WB11 


WL2 


WL2 = 


= EQDATI 


24 


TP 


CK6 


VB3 


VB3 = 


= -1 




25 
26 


RP 
TP 


10020 
CA27 


YB \ 

WL4 J 


Clear dummy list -> 




CA 


FR27 











816 



Get CW from Dummy Function List 













RJ 


TU 


TU1 












MJ 





Not in list 




IA 


TUv/ 






MJ 





In list 





MJ 





130000) 


Exit 






1 


MJ 





TU4 




Start 






2 













XS3 






3 













CW 






4 


TP 


SY2 


A 




Sym. — » A 






5 


RP 


20020 


TUO 




Not in list— > TUO (Exit) 






6 


EJ 


WL4 


TU7 




In list 






7 


SP 


TU15 





1 
i 








10 


SS 


Q 


17 


r — > A 
u 






11 


AT 


TU16 


TU14 




WL3 + r — •> TU14 






12 


RA 


TUO 


TU17 




Set for in list 






13 


RP 


30002 


TUO 


} 


File-> output — > Exit 






14 

















15 








20020 




JN 






16 


TP 


WL3 


TU2 










17 




CA 



TU20 


1 











Send Dummy CW to Function List 





IA 


TP 









MJ 





(30000) 


Exit 


1 


MJ 





TP6 


Start 


2 











XS3 


3 








(0) 


CW 


4 





(WL4) 


(WL4) 


Add. of next file in dummy list 


5 





WL24 


WL24 


Limit add. 


6 


TP 


TP4 


A \ 


7 


TJ 


TP5 


TP20 - 


» O.K. — >TP20 No * 


10 


TP 


VA37 


I 


11 


QJ 


TP12 


TP13 J 


Not in CB List + in — > irl3 


12 


RJ 


TE 


TE1 


Add "to list 


13 


RJ 


WA 


WAl 




14 


TP 


GQ 


UP3 




15 


TP 


VA10 


GQ10 


' E50 


16 


RJ 


UP2 


UP 




17 


MJ 





FR 


— » Exit 


20 


TV 


TP4 


TP22 


Set address 


21 
22 


RP 
TP 


30002 
TP2 


TP23 1 
(30000) J 


- File— > list 


23 


RA 


TP4 


TP25 


Modify 


24 


MJ 





TP 


Exit 


25 



CA 


2 
TP26 


2 





817 



Lower ( Level on Left 





IA 


XL 









MJ 





(30000) Exit 


1 


MJ 





XL3 


Start 


2 











Ind. 


3 


RS 


VA1 


CA3 


Lower ( level 


4 


TJ 


CA3 


XL6 


0K|<1 — > XL6 


5 


MJ 





XL 


Exit 


6 


TP 


CA3 


VA1 


Set level = 1 


7 


TP 


XL2 


1 


Pre. point— >exit 


10 


QJ 


XL 


XL11 / No * 


11 


RJ 


WA 


WA1 




12 


TP 


GI 


UP3 


E39 


13 


RJ 


UP2 


UP 




14 


TP 


CA24 


XL2 


Set print 


15 


MJ 
CA 



XL16 


XL 


Exit 



818 



Delete LIB, SS f FTN 



Y RJ FY FV1 
Y+l MJ (A. exit) 
Y+2 Normal exit 





IA 


FV 











MJ 





(30000) 




Exit 


1 


TP 


WC1 


WC 




Level = 1 


2 


RJ 


SY 


SY1 




Sym — » A 




FT 

uu 


WC2 


FV7 




(— >FV7 


4 


EJ 


WC3 


FV11 




)— »FV11 


5 


EJ 


WC4 


FV17 




A . — > FV17 


6 


MJ 





FV2 




Return 


7 


RA 


wc 


WC1 




Raise level 


10 


MJ 





FV2 




Return 


11 


RS 


wc 


WC1 




Lower level 

Level zero v no — » 


12 


ZJ 


FV2 


FV13 




13 


RA 


FV 


WC1 




Increase exit 


14 


TP 


CA5 


A 


] 


Set PC with ) 


15 


AT 


PD1 


PC2 




16 


MJ 





FV 






17 


TP 


CA36 


A 


} 


Set PC with doesn 't 


20 


AT 


PD1 


PC2 


matter 


21 


RA 


VA1 


WC 




Raise level 


22 


RJ 


DA 


DAI 




Check level 


23 


MJ 
CA 

IA 



FV24 

WC 


FV 




— » Exit 
















Level 


1 








1 




Const. 


2 


17 


77777 


77777 




( 


3 


43 


77777 


77777 




) 


4 


01 
CA 


22777 
WC5 


77777 




A 



return 



Superfluous Argument Error 





IA 


WD 







RJ 


WA 


WA1 


1 


TP 


SZ2 


GM7 


2 


TP 


GM 


UP3 


3 


RJ 


UP2 


UP 


4 


TP 


GP 


DP3 


5 


RJ 


DP2 


UP 


6 


RJ 


FV 


FV1 


7 


MJ 





YV 


10 


MJ 





zm 




CA 


WD11 





E48 



'Args, not checked* 



Delete FTN 
A.-»© 



819 



Pair Checker PC 





IA 


PC 













MJ 





(30000) 




Exit 


1 


MJ 





PC4 




Start 


2 





PD22 


PD22 




Address (left symbol) 


3 





20 


20 




Shift count (right symbol) 


4 
5 


TU 
TP 


PC2 PC5 
( 30000) Q 


} 


Code word — >Q 


6 


TV 


PC3 


PC7 


} 


Shift bit—> A 


7 


SP 


PD 


(30000) 




10 


QT 


A 


A 




Ind.— > A 


11 


ZJ 


PC 12 


PC21 




OK— > PC21 No { 


12 


RJ 


WA 


WA1 








13 


RP 


30003 


PC15 


} 


Left sym. 




14 


TP 


SZ2 


FQ6 




■ E52 


15 


RP 


30003 


PC17 


} 


Right sym. 




16 


TP 


SY2 


FQ12 






17 


TP 


FQ 


UP3 








20 


RJ 


UP2 


UP 




. 




21 
22 


SP 
AT 


PD1 
PC3 



PC2 


} 


Set for next check 


23 


MJ 
CA 

IA 



PC24 

PD 


PC 




Exit 











1 




Shift bit 


1 





PD2 


PD2 




1st address of code words 


2 








67642 




( 


3 





1 


12035 




) or J (closed) 


4 





1 


12035 




Var. or const. 


5 





1 


12034 




Sub. Var. 


6 





1 


12034 




FTN 


7 








67642 




. or ; 


10 








47742 




+ or - 


11 








67642 




* or / 


12 





1 


11435 




Up const. 


13 





1 


57377 




Up - 


14 





1 


77377 




Up / 


15 








47642 




POW 


16 








67642 




LIB 


17 








67642 




= 


20 





1 


77777 




A. 


21 








47642 




| (open) 


22 













"Doesn *t matter" 




CA 


PD23 











820 



Conversion of Upper Case XS-3 Constant to Lower Case 





T A 

1M 


MI 













MJ 





(30000) 






1 


MJ 





MI6 . 







2 








Output data 




3 








o i 






4 








f Input data 




5 















6 


TP 


MI 121 


MI 104 


Zeroize temp. 




7 
l 




MI 121 


MI 105 


Zeroize temp* 




10 


TP 


MI4 


MI46 


Store input 




11 


TP 


MI5 


MI47 


Store input 




12 


TP 


MI 103 


MI110 


Set Index 




13 


TP 


MI106 


MI 107 


Set Index 




14 


TP 


MI111 


MI25 


Set store command 




15 


LQ 


MI46 


00006 ' 






16 


QT 


MI50 


A 






17 


RP 


20013 


MI25 






20 


EJ 


MI51 


MI21 






21 


TP 


MI 101 


A 






22 


ST 


Q 


MI117 






23 


LA 


MI117 


00017 


Convert and Store 




24 


RA 


MI25 


MI117 






25 


TP 


MI64 


Q 






26 


QT 


MI 50 


MI45 






27 


LQ 


MI 104 


00006 






30 


RA 


MI 104 


MI45 






31 


IJ 


MI 107 


MI14 






32 


RA 


MI30 


MI 102 ] 






33 


RA 


MI27 


MI102 


► Reset for second word 




34 


RA 


MI 15 


MI 102 J 






35 


IJ 


MI110 


MI13 






36 


TP 


MI104 


MI2 


■ 




37 


TP 


MI 105 


MIS 






40 


TP 


MI111 


MI25 


Preset for second set 


of 


41 


TP 


MI112 


MI15 


input data 




42 


TP 


MI113 


MI30 






43 


TP 


MI 114 


MI27 






44 


MJ 





MI 






45 















46 















47 















50 








00077 






51 








00060 


Upper Case 




52 








00061 








53 








00040 








54 








00020 








55 








00041 








56 








00035 








57 








00055 


> 


f 





821 



60 








00075 


61 








00036 


62 








00057 


63 








00062 


64 








00077 


65 








00003 


66 








00004 


67 








00005 


70 








00006 


71 








00007 


72 








00010 


73 








00011 


74 








00012 


75 








00013 


76 








00014 


77 








00022 


100 








00077 


101 








20013 


102 





00001 





103 








00001 


104 











105 











106 








00005 


107 











110 











111 


TP 


MI64 


Q 


112 


LQ 


MI46 


00006 


113 


RA 


MI 104 


MI45 


114 


14 


MI 104 


00006 


115 


PR 





MI120 


116 


MS 





40000 


117 





00007 





120 








00015 


121 













CA 


MI122 





Lower Case 



Lower Case 



Parameter Error 
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Constants 





IA 


CAO 









04 










1 


06 










2 








77777 




3 








1 




4 











( 


5 





1 


1 


) or | (closed) 


6 





2 


2 


Variable or const 


7 





3 


3 


Ss. Var. 


10 





4 


4 


FTN 


11 





5 


5 


, or ; 


12 





6 


6 


+ or - 


13 





7 


7 


* or / 


14 





10 


10 


Upper Const. 


15 





11 


11 


Upper - 


16 





12 


12 


Upper / 


17 





13 


13 


POW 


20 





14 


14 


LIB 


21 





15 


15 


BY or = 


22 





16 


16 


A . 


23 





17 


17 


| (open) 


24 


40 










25 








64000 




26 





3 


3 




27 











Zero 


30 


17 


77777 


77777 


( 77 77 77 77 77 


31 








65000 




32 








777 




33 








66000 




34 


06 





3 




35 








62000 




36 





9n 


20 


S K S for P S C S 


37 



CA 



CA40 


01000 





for PC 



823 



Constants (cont.) 





IA 


CG 









11 


11111 


11111 


Fltpt. 


1 


22 


22222 


22222 


Fixed pt. 


2 


33 


33333 


33333 


Ftn. 


3 


44 


44444 


44444 


Sub. var. 


4 


21 


77777 


77777 


, 77 77 77 77 77 


5 


23 


77777 


77777 


; 77 77 77 77 77 


6 

7 

10 


43 
76 
25 


77777 
77777 
73777 


77777 
77777 
77777 


) 77 77 77 77 77 


nv -v 


OX * 


11 


01 


22777 


77777 


A. > 


12 


00 


77777 


77777 


- 77 77 77 77 77 


13 


15 


77777 


77777 


/ 77 77 77 77 77 


14 


42 


77777 


77777 


1 > 


15 








50 


1 -^ 


16 








120 


A. 


17 








77000 




20 








70 


Mask 


21 








61000 




22 








63000 




23 








76000 




24 





1 





( 


25 








00700 


Mask 


26 





VL1 


VL1 




27 





07777 





Mask 


30 








70000 




31 








40000 




32 








50000 




33 


02 










34 





2 





) 


35 





70000 







36 








40 


> 


37 



CA 


10000 
CG40 








824 



Constants Icont.J 





IA 


CHO 










CH35 





1 





cm 





2 





CI13 





3 





CI12 





A 








75000 


5 


52 


51717 


77777 


6 


63 


77777 


77777 


7 


02 


77777 


77777 


10 


56 


77777 


77777 


11 


64 


77777 


77777 


12 








12 


13 








13 


14 








10 


15 





2 


2 


16 








5 


17 








VA24 


20 








VA31 


21 


TP 


CG34 





22 





1 





23 





1 


1 


24 








3 


25 








2 


26 





CIO 





27 





VA32 





30 








16100 


31 








100 


32 








77 


33 








16000 


34 





CI1 





35 








70 


36 








32 


37 








00100 




CA 


CH40 





Fltpt. / 
Fixed pt. / 
Fltpt, * 
Fixed pt. * 

PO W 77 77 77 
+ 77 77 77 77 77 
_ > 

* > 

/ > 

I (closed) floating 

I (closed) fixed 

I (open) fl. and fixed 



Base add. for sequence 
for comparison 



To set VC3 & POW 



825 



Constants (Cont.) 





IA 


CIO 









00 


77777 


77777 


- 


1 


20 


14000 





1 


2 


15 


77777 


77777 


/ 


3 


20 


24000 





2 


4 


20 


26000 





3 


5 








13000 


CW for 4 to 63 & -4 to -63 


6 








15000 


2 & -2 


7 








14000 


3 & -3 


10 








17100 


-1 


11 








71 


Fixed / 


12 








61 


Fixed * 


13 








60 


Fl. * 


14 








60000 




15 








10000 




16 








33 


Fixed unary - 


17 








32 




20 








31 




21 








30 




22 








21 


Fixed + 


23 








20 


Fl. + 


24 





3 


3 




25 








75000 




26 


30 










27 











Base add. of print list 


30 





20000 







31 








7 


Mask 


32 
33 






VC20 
VC30 


VC20 \ 
VC30 J 


Limits on LIB modes 


34 





07000 







35 





CI20 





Fixed - 


36 





CI21 





Fl. 


37 



CA 


CI22 
CI40 





Fixed + 



826 



Constants (cont») 





IA 


CKO 












CI23 





Fl. + 


1 





VC10 


VC10 




2 





VC20 


VC20 




3 





VC30 


VC30 




4 





WL23 


WL23 


Set EW3 


5 





WL4 


WL4 




6 


77 


77777 


77776 




7 








25000 


64 r 65 t 66xxx separate Eq 


10 








24000 


77xxx separate Eq. 


11 








WL 




12 








67000 


Const. CW 


13 



CA 


30000 
CK14 





Const. 
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Variables for Equation Translation 





IA 


VAO 
















1 








1 


2 








1 


3 











4 











5 











6 











7 











10 











11 











12 











13 











14 











15 





2 


2 


16 











17 











20 











21 











22 











23 








100 


24 





1 





25 











26 











27 











30 











31 











32 











33 











34 











35 











36 











37 











40 








7 


41 





(0) 







CA 


VA42 





Print ind. 

( level bit 

1 level bit 

w ( level raisers in sequence 

< 1 level raisers in sequence 

Ss. mode level 

XS3 of Ss. variable 

Ftn. mode level 

XS3 of Ftn. 

Level of subscripts for FTN. 

Lib. mode 

# commas for Lib. 

# of =*s 

# of words in up. c. sequence for string-out 
Fixed 40 - floating 00 

# commas, SV mode (count) 

# commas , FTN mode (count) 

# commas, Lib. mode (count) 

# upper case symbols in sequence 
POW ( 

Upper case sequence 

for string-out 
(Call words) 



Upper case sequence 
for special call word 
comparison (XS3) 

* Ss. -1 (from dimension list) 

not in CB List bit 
Ftn. mode format mask 
Address in CB List 



828 



Variables (cont.) 





IA 


vc 
















1 











2 











3 











4 











5 


o 


n 


o 


6 











7 











10 





VC10 


VC10 


11 











12 











13 











14 











15 











16 











17 











20 





VC20 


VC20 


21 











22 











23 











24 











25 











26 











27 











30 





VC30 


VC30 


31 











32 











33 











34 






















36 











37 













CA 


VC40 





Any decimal points in sequence 

Index 

Constant CW temp. 

Add in to constant CW for - 

Save const. CW 

Ind. print for "more than 29 ( *s etc, 



Address of Lib. level 



Level of Lib. 



Address of # of commas for Lib, 



# commas for Lib. 



XS3 of Lib. 
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Equation Translation Left 

Section A - First Symbol, Before START 

Section B - First Symbol, After START 

Section C - Not First Symbol 

Region Section Region Section 

YB A 

YH A ZE C 

YK A ZD C 

YG A ZI C 

YF A ZJ C 

YJ A ZK C 

YE A ZL C 

YD A DA C 

YI A KX C 

YC A KY C 

YM A 

YN A 



YW B 

YS B Letters on left of coding 

YR B sheets are connectors (They are 

YQ B also onthe flow charts) 

YP B i.e., (¥), (A^ , etc. 



YU B 

YT B 



Connector Section 



YX C (a) A 

ZA C ^ 



ZC C (Al) A 

ZB C 



YZ C (A2) A 

YY C 



YL C (B ) C 

ZF C 

ZG C 

ZH C 



830 



Left-Before START-lst Symbol 



® 




1 
2 
3 
4 
5 
6 

T 
( 

10 

11 

12 
13 
14 
15 
16 
17 
20 
21 
22 
23 
24 
25 
26 
27 
30 
31 
32 
33 
34 
35 
36 
37 
40 
41 
42 
43 
44 



IA 
TP 
ZJ 
RJ 
MJ 
TP 
QT 



RJ 
TP 
QT 
EJ 
QT 
AT 
MJ 
QT 
AT 
TP 
QT 
ZJ 
RJ 
TP 
TP 
RJ 
TP 
QT 
EJ 
EJ 
EJ 
RJ 
EJ 
RJ 
TP 
TP 
RJ 
TP 
MJ 
CA 



YB 
YD 
YW 
TA 


TA4 
CG30 



EJ CG32 



EW 

TA4 

CG17 

CG17 

CA32 

CK7 



CA32 

CK10 

TA5 

CAl 

YB24 

WA 

SY2 

EX22 

DP2 

TA4 

CG17 

CA25 

CA31 

CA33 

SY 

CA30 

WA 

SZ2 

EN22 

DP2 

SY2 



YB45 



After — >YW 
Before ^ 
Not in CB List 
In 4 

Lib. — > YD 

No j 

CW — > string 



CW = 77XXX — >YB17 
No | 

25XXX CW — >WL3 



24XXX CW — >WL3 

No prev. Eq. s 

Prev. Eq. £ 



E24 



CW — >A 

64XXX — >YE 
65XXX — >YH 
66XXX — >YG 
Sym.— >A 77XXX \ 
— >YJ No I 



E18 

Sym.->A 
— >(k] 



^YC 
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End of Left Symbols 



SY1 
A2)\ 1 EJ CG7 YK = — ->YK 

WA1 \ 

UP3 J E25 
UP 





IA 


YH 





RJ 


SY 


1 


EJ 


CG7 


2 


RJ 


WA 


3 


TP 


GA 


4 


RJ 


DP2 


5 


TP 


SY2 


6 


EJ 


CG11 


7 


RJ 


SY 


10 


EJ 


CG7 


11 


MJ 







CA 


YH12 



YV A. — >(C2) 
SY1 Sym, — > A 
YK = — >YK 
YH6 





IA 


YK 









RA 


VA14 


CA3 


» ='s + 1 


1 


IP 


VA1 


A 




2 


EJ 


CA3 


YK7 


level zero — >YK7 no 


3 


RJ 


WA 


WAll 




4 


TP 


GL14 


DP3 > 


E47 


5 


RJ 


DP2 


DP J 




6 


TP 


CA3 


VA1 


set to ( level zero 


7 


RP 


10011 


YK11| 




10 


TP 


CA27 


VA3 I 


Clear all modes 


11 


RP 


10004 


YK13[ 




12 


TP 


CA27 


VA17J 




13 


TP 


CA27 


VA36 


Clear #SS 


14 

15 


TP 
AT 


CA21 
PD1 


A 1 
PC2 i 


set left of PC with = 


16 


TP 


CGI 5 


EW2 \ 
EW1 J 


CW — >list 


17 


RJ 


EW 


-© 


20 


MJ 





ZM1 




CA 


YK21 





832 



66XXX 





IA 


YG 




RJ 


SY 


1 


EJ 


CA30 


2 


RJ 


WA 


3 


TP 


SZ2 


4 


TP 


GA6 


5 


RJ 


UP2 


6 


MJ 





7 


LQ 


TA31 


10 


MJ 







CA 


YG11 




Syrn — > A . 

( — >YG7 no 1 

E26 

— >Exit to trans, control 



65XXX 





IA 


YF 









RJ 


SY 


SY1 


Sym — >A 1 
( — >YF3 no 1 


1 


EJ 


CA30 


YF3 


2 


MJ 





YH1 


->© 


3 


RA 


TA4 


CA37 


CW = 66XXX 


4 


TP 


TA31 


VA41\ 
CA3 J 


Save address in VA41 


5 


RA 


VA41 




6 


TP 


VA1 


VA7 


Set Ftn. mode 


7 


TP 


SZ2 


VA10 


XS3 of Ftn. 


10 


RA 


VA1 


CA3 


Raise ( level 


11 


TP 


PD1 


PC2 


Set PC 


12 


TP 


CA26 


TF 


# words = 3 


13 


TP 


CA34 


TF3 


Set format 


14 


TP 


CG20 


VA40 


Set mask 


15 
16 


RP 

TP 


30002 
TA3 


yxn 

TF1J 


Set up to return to 
CB list then— ->(§) 




CA 


YF17 





833 





IA 


YE 





TP 


CA24 


1 


MJ 







CA 


YE2 





IA 


YD 





RJ 


WA 


1 


TP 


SY2 


2 


TP 


GB 


3 


RJ 


UP2 


4 


MJ 







CA 


YD5 



77XXX ( 





IA 


YJ 









TP 


VA1 


VA5 


Set Ss. mode 


1 


TP 


TA5 


Q ) 
VA36 J 


*Ss. — >VA 36 


2 


QT 


CA2 




3 


RA 


VA1 


CA3 


Raise level 


4 


TP 


PD1 


PC2 


Set PC 


5 


TP 


CG24 


EW2\ 
EWlJ 


CW — >list 


6 


RJ 


EW 




7 


RS 


VA36 


CA3 


#Ss.-l 


10 


TP 


SZ2 


VA6 


XS3 of Ss. variable 


11 


MJ 





YX1 




CA 


YJ12 





64XXX 



VA16 Set fixed equation 
YH — >f" 



Lib. = 5XXXX 




E27 



-> trans, control 



834 



No previous Equation 





IA 


YI 









RA 


TA5 


CA1 


Set eq. 


1 


RJ 


TD 


TD1 


Return to list 


2 


TP 


TA4 


I } 




3 


QT 


CG17 


CW — >A 


4 


EJ 


CA31 


YF 


65XXX — >YF 


5 


MJ 
CA 



YI6 


YB30 





no 



Not in CB List 



IA YC 

RJ RH RHl Check Var. symbol 

1 RJ TK TK1 Increase CW. 

2 AT CK7 WL3 25XXX CW — >WL3 

3 TP SYIO Q \ IJKLM — >YU 

4 QJ YM YC5J No i 

5 RJ SY SY1 Sym — >A 

6 EJ CA30 YN ( — >YN no i 

7 TP VB1 A \ 

10 AT CA31 EW2J CW = 65XXX 

11 TP A TF2^ 

12 RJ EW EW1J CW — >list 

13 TP CA26 

14 TP SZ2 TF1 I File— >CB list 

15 TP CA1 

16 RJ TE 

17 TP SY2 A Sym 



20 MJ YH1 >(&) 

CA YC21 ^ 



835 



Not in CB List 1st Letter IJKLM 

IA YM 

TP VB1 A | 64XXX 

1 AT CA25 EW2 > 

2 TP A TF2J 

3 RJ EWO EW1 CW — >list 

4 TP CA24 VA16 Set fixed equation 

5 TP SY2 TF1 Sym. — >TF1 

6 TP CA26 TFO | 

7 TP CA1 TF3 > CW — >CB List 

10 RJ TEO TE1 J 

11 MJ YH >(A2) 

CA YM12 



NOT IJKLM Next Sym. ( 





IA 


YN 









TP 


VB1 


EW2 J 


66XXX 


1 


AT 


CA33 




2 


TP 


A 


TF2 




3 


RJ 


EWO 


EW1 


CW — >list 


4 


TP 


SZ2 


TF1 \ 
VA10J 


XS3 of Ftn. 


5 


TP 


SZ2 




6 


TP 


CA34 


TF3\ 
TFO J 


Store format 


7 


TP 


CA26 




10 


TP 


VA1 


VA7 


Set Ftn. 


11 


RA 


VA1 


CA3 


Increase level 


12 


TP 


PD1 


PC2 


Set P. C. 


13 


TP 


CA24 


VA37 


Set "not in CB List H bit 


14 


TP 


CG20 


VA40 


Set mask 


15 


MJ 
CA 



YN16 


YX1 


—® 
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Left After Start 1st symbol 



lA 



YW 





1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 

15 

16 

17 

20 



RJ 
MJ 
TP 
RJ 
RJ 
TP 

/~\ti 

yx 

EJ 
EJ 
RJ 
EJ 
RJ 
TP 
TP 
RJ 
TP 
MJ 
CA 



TS 



TS3 

EW 

KY 

TS3 

CG21 

CG22 

SY 

CA30 

WA 

SZ2 

EP 

DP2 

SY2 



YW21 



TSn 
YP J 
EW2 \ 
EWl/ 

KYI 

a j 

YQ 

YR 

SY1 

YS 

WA1>! 

EP6 I 

DP3 [ 

UP <> 

A 

YH1 



Not in P. Op. list — >YP 

In i 

CW >Hst 

Check Vary List 
XXOOO — >A 



61XXX 
63XXX 



■»YQ 



>YR 
76YXX 4 Sym 
( -^YS no ^ 

E19 



Sym 





IA 


YSO 









TP 


CG24 


EW2\ 
EWl J 


( — > string 


1 


RJ 


EWO 




2 


TP 


SZ2 


VA6 1 
VA5 J 


Set Ss. mode 


3 


TP 


VA1 


► 


4 


RA 


VA1 


CA3 


Raise level 


5 


TP 


TS3 


Q ) 




6 


QT 


CG25 


Q 


l Store # Ss. 


7 


LQ 


Q 


36 


10 


TP 


Q 


VA36 




11 


TP 


PD1 


PC2 


Set P.C. 


12 


RS 


VA36 


CA3 


Ss. - 1 


13 


MJ 
CA 



YS14 


YX1 


— -® 



837 



63XXX 





IA 


YRO 









TP 


SYIO 


I 

YH J 


1st letter IJKLM 


1 


QJ 


YR2 


No— >® 


2 


TP 


CA24 


VA16 


Set fixed eq. 


3 


MJ 
CA 



YR4 


YH 


-»<D 



YR2 



61XXX 





IA 


YQ 









RJ 


SY 


SY1 


Sym — >A 


1 


EJ 


CA30 


YQ3 


(— >YQ3 


2 


MJ 





YH1 


— *@ 


3 


RJ 


WA 


WAIN 


V..*' 


4 


TP 


SZ2 


GM7 I 


E48 


5 


TP 


GM 


DP3 | 




6 


RJ 


UP2 


DP J 




7 


TP 


GP 


DP3\ 
UP J 


"Args. not 


10 


RJ 


DP2 




11 


RJ 


FV 


FV1 


Delete Ftn. 


12 


MJ 





YV 


A. ->@ 


13 


MJ 
CA 



YQ14 


YH 


-^^r 



no 



Not in P. Op. List-After START-lst Sym 



Not in CB List — >YT 

In i 

CW — >list 





IA 


YP 







RJ 


TA 


TAl \ 
YT J 


1 


MJ 





2 


TP 


TA4 


EW2\ 
EWl J 


3 


RJ 


EW 


4 


RJ 


KY 


KYI 


5 


MJ 





YD 




CA 


YP6 





Check Vary List 



838 



Not in Vary List 





IA 


YU 







TP 


TA4 


Q ) 

A J 


1 


QT 


CG30 


2 


EJ 


CG32 


YD 


3 


QT 


CG17 


A 


4 


EJ 


CA25 


YE 


5 


EJ 


CA31 


YH 


6 


EJ 


CA33 


YQ 


7 


TP 


CG33 





10 


QS 


CG33 


TA5 


11 


RJ 


TD 


TD1 


12 


MJ 





YB35 




CA 


YD13 





xoooo- 


— >A 




5XXXX- 


— >YD 




XXOOO- 


-H*A 




64XXX- 


-h>YE 




65XXX- 


— > YH 




66XXX- 


r YQ 




77XXX 




Set Equation 


bit 


Return 


to CB 


List 









Not 


in CB List 




IA 


YT 









RJ 


TK 


TK1 


Increase CW counter 


1 


TP 


SY10 


Q ) 
YT14J 


1st letter IJKLM — >YT3 


2 


QJ 


YT3 


No — ->YT14 


3 


AT 


CA25 


EW2 \ 
VA16J 


CW = 64XXX 


4 


TP 


CA24 


Set fixed Equation 


5 


TP 


A 


TF2>! 




6 


TP 


CA26 


TF 1 


Build file 


7 


TP 


SY2 


TF1 [ 




10 


TP 


CG33 


TFS^ 




11 


RJ 


EW 


EW1 


CW — >list 


12 


RJ 


TE 


TE1 


Filej^->CB List 


13 


MJ 


o 


YH 


CW =^5XXX 


14 


AT 


CA31 


EW2 


15 


MJ 
CA 



YT16 


YT5 





839 



Left - Not 1st symbol 
IA YX 






RJ 


PC 


PCI 


Pair Check 


1 


RJ 


SY 


SY1 


Sym — >k 


u 


EJ 


CG7 


YK 


= — »YK 


3 


TP 


SY7 


Q \ 


Var. — > YL no i 


4 


QJ 


YL 


YX5 J 


5 


EJ 


CA30 


YY 


( — >VL 


6 


EJ 


CG4 


YZ \ 
YZ J 




7 


EJ 


CG5 


, or ; — >YZ 


10 


EJ 


CG6 


ZA 


)— >ZA 


11 


MJ 





KX 


A .— ^KX^(C 


12 


TP 


SY2 


GC4n 


^N^ 


13 


RJ 


WA 


WA1 1 




14 


TP 


GC 


DP3 f 


E29 


15 


RJ 


DP2 


UP J 




16 


TP 


CA36 


PC3 


Set PC 


17 


MJ 





YX 




CA 


YX20 





840 



Lef t, not 1st sym. 
) 

TA 7A 

in tan. 

TP CA5 PC3 Set PC 

1 RJ XL XL1 Level checker 

2 TP VA1 A No | 

3 EJ VA5 ZB Leaving Ss. mode — >ZB 

4 EJ VA7 ZC Leaving Ftn. mode — >ZC 

5 TP VA7 A I In Ftn. mode — >YX 

6 ZJ YX ZA7 J No i 

7 TP CG34 EW2 I CW — >list 

10 RJ EW EW1 J 

11 MJ YX — > ( B 
CA ZA12 



) Leaving Ftn. mode 





IA 


ZC 









TP 


CA27 


VA7 


Clear Ftn. mode 


1 


RJ 


PC 


PCI 


— >PC 


2 


TP 


CG35 


Q ) 
TF3J 


* commas — >list 


3 


QS 


VA20 




4 


TP 


VA37 


Q 1 
ZCll J 


"Not in CB List" bit set 


5 


QJ 


ZC6 


Not set — >ZC11 


6 


RJ 


TE 


TE1 


Add to CB List 


7 


TP 


CA27 


VA37 


Clear "not" bit 


10 


MJ 





YH 


— > © 


11 


TV 


VA41 


ZC13 1 


Send back to CB List 


12 


RP 


30003 


YH > 


— »© 


13 


TP 
CA 


TFl 
ZC14 


( 30000 )J 


^w^ 



841 



Left ) -leaving Ss. mode 





1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 

15 

16 

17 

20 

21 

22 

23 

24 

25 

26 



IA 
RJ 
TP 
TP 
ZJ 
TP 
ZJ 
RJ 
TP 
TP 
TP 
RJ 
MJ 
TP 
RJ 
TP 
ZJ 
RJ 
TP 
TP 
RJ 
TP 
TP 
MJ 
CA 



ZB 

PC 

CA27 

VA7 

ZB4 

VA36 

ZB6 

WA 

VA6 

GC12 

VA10 

UP2 



CG34 

EW 

VA36 

ZB20 

WA 

VA6 

GI12 

DP2 

CA27 

CA27 



ZB27 



Do PC 

Clear Ss. mode 

Ftn. mode^ no— ->ZB14 
# commas = — >Qy 

No | 



E30 



CW — Mist 

Right * commas — >ZB24 
No v 

E40 



Clear # Ss, 



Left 



» or ; 





IA 


YZO 





TP 


CA11 


1 


TP 


VA5 


2 


ZJ 


YZ3 


3 


RS 


VA36 


4 


TP 


CG36 


5 


RJ 


EWO 


6 


MJ 





7 


RA 


VA20 


10 


TP 


CK13 


11 


TJ 


VA20 


12 


LQ 


VA40 


13 


MJ 







CA 


YZ14 



PC3 

A } 

YZ7 i 

CA3 

EW2\ 

EWlJ 

YX 

CG37 

A ) 
TP10 J 

3 

YX 



Set PC 

Ss. mode v no — >YZ7 
Commas - 1, 
CW. — >list 

-® 

Commas + 1 

Too many operands — >TP10 

No i 

Shift mask 



842 



Left 





rA 


YY 









TP 


CA4 


L\JtJ 


Qet tv» 


1 


RA 


VA1 


CA3 


Increase level 


2 


TP 


VA7 


A \ 
YY11 J 


Ftn. mode \r Ss. mode — ^ 


3 


ZJ 


YY4 


4 


RJ 


WA 


WA1 x 




5 


TP 


VA10 


GV45 1 


E55 


6 


TP 


GV31 


DP3 [ 




7 


r% t 


ur<s 


UP J 


x^"*v. 


10 


MJ 





YX 


— ® 


11 


RJ 


WA 


WA1 ^ 




12 


TP 


VA6 


GV27 I 


E54 


13 


TP 


GV15 


DP3 [ 




14 


RJ 


DP2 


UP J 




15 


TP 


CG24 


EW2 \ 
EW1 / 


CW — >list 


16 


RJ 


EW 


— ® 


17 


MJ 





YX 




CA 


YY20 







>YY11 



Left-not First Symbol-Var. 





1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 

15 

16 

17 

20 

21 

22 

23 

24 

25 

26 



IA 
RJ 
TP 
TP 
ZJ 
RJ 
MJ 
TP 
QT 
EJ 
TP 
ZJ 
TP 
QJ 
RJ 
TP 
TP 
TP 
RJ 
TP 
RA 
AT 
RJ 
MJ 
CA 



YLO 

RHO 

CA6 

VA7 

YL4 

TAO 



TA4 

CG30 

CG32 

VA5 

YL13 

SY10 

YL22 

WA 

SY2 

VA6 

ER 

UP2 

SY2 

VB3 

CA35 

TP 



YL27 



i 



Check symbol 
Set PC 

Not Ftn. mode - 
Ftn. mode \ 
Not in CB List 
In \t 



Lib.^ZE 
No J 

Ss. mode v no 

Not IJKLM ^ 



>ZD 
■^YLll 



yes 



-ZF 
-»YL22 



E21 



Assign dummy GW 

CW —> dummy list 
— >(B) 



843 



Var.-Ftn. mode- not Ss. mode 





IA 


ZFO 







TP 


SYlO 


Q 


1 


QJ 


ZF2 


ZGO 


2 


RJ 


WA 


WA1 


3 


TP 


ER22 


DP3 


4 


TP 


SY2 


ER27 


5 


RJ 


DP2 


DP 


6 


MJ 





YL22 




CA 


ZF7 





IJKLM i no — >ZGO 
E22 

Return 



Not IJKLM 

IA ZG 

RJ PC PCI PC 

1 RJ SY SY1 Symbol — >A , 

2 EJ CA30 ZH , ( — >ZH no * 

3 RA VB3 

4 AT CA35 TP3 \ 62XXX CW— » dummy list 




5 TP SZ2 

6 RJ TPO 

7 TP VA40 Q \ Fltpt. — ^format 

10 QS CG 

11 TP SY2 A Sym 

12 MJ YX2 — >(BJ 
CA ZG13 



844 



Ftn. mode-Var. ( 





1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 



IA 
RA 
AT 
TP 
RJ 
RA 
TP 
TP 
QS 
TP 
TP 
TP 
RA 
MJ 
CA 



ZHO 

VB3 

CH4 

SZ2 

TPO 

YB3 

PD1 

VA40 

CG3 

VA1 

SZ2 

CA27 

VA1 



ZH15 



CA3^ 
TP3 I 
TP2 ( 
TP1 j 
CA3 
PC2 

TF3 ) 

VA5 

VA6 

VA36 

CA3 

YX1 



I 



75XXX CW — >dummy list 



Leave space for Ss, 

Set PC 

Ss. var — > format 

Set Ss. mode 

# Ss. - 1 = 
Raise level 
— >(b) 



Lib. 5XXXX 






RJ 


WA 


1 


TP 


SY2 


2 


TP 


VA10 


3 


TP 


GD 


4 


RJ 


DP2 


5 


TP 


CA36 


6 


MJ 







CA 


ZE7 



^ 



WA1 

GD5 , 
GD17 > 
UP3 
DP J 
PC3 
YX 



E31 



Set PC w doesn*t matter" 



845 



Left - Not 1st symbol 
Not Ftn. mode 
Var. 





1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 

15 

16 

17 

20 

21 

22 

23 

24 

25 

26 

27 

30 

31 

32 

33 



IA 
TP 

QJ 
RJ 
TP 
TP 
TP 
RJ 
TP 
ZJ 
RJ 
MJ 
TP 
RJ 
MJ 
RJ 
MJ 
TP 
RJ 
MJ 
RJ 
AT 
TP 
TP 
TP 
TP 
RJ 
RJ 
MJ 
CA 



ZD 

SY10 

ZI 

WA 

SY2 

VA6 

EK 

DP2 

VD 

ZD11 

TS 



TS3 

EW 



TA 



TA4 

EW 



TK 

CA31 

A 

CA26 

SY2 

CA27 

TE 

EW 



ZD34 



} 



IJKLM -h>ZI 
no I 

Ell 



Before — >ZI2 

After i 

Not in P.Op. list — >ZD16 

In J 

CW — >list 



->{B 



Not in CB list 
In I 



ZD23 



CW 



•string 



MB 



Increase CW 
Assign 65XXX CW 



File 



►CB list 



CW— flist 
— ® 
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1st Letter IJKLM 




1 
2 
3 
4 
5 
6 
7 
10 



IA 
TP 
ZJ 
RA 
AT 
TP 
TP 
RJ 
RJ 
MJ 
CA 



ZI 

VD 

ZJ 

VB3 

CA35 

A 

SY2 

TPO 

EWO 



ZI11 



A ) 
ZI2J 

CA3> 

TP3 

EW2 } 

TP2 

TP1 > 

EW1 

YX 



Before START i 
No— >ZJ 



Dummy CW = 62XXX — >list 



CW -— >list 

— ® 



After START 



IA 
RJ 
MJ 
TP 
RJ 
MJ 
CA 



ZJO 

TSO 



TS3 

EW 



ZJ5 



TSl 

ZK 

EW2 

EW1 

YX 



j 
] 



In P. Op. list \ no 
CW — >list 



->ZK 



<D 



Not in P. Op. list 



IA 
RJ 
MJ 
TP 
RJ 
MJ 
CA 



ZKO 

TAO 



TA4 

EW 



ZK5 



TA11 
ZL J 
EW21 
EWlJ 
YX 



Not in CB List — >ZLO 

In I 

CW — >list 



® 



Not in CB List 




1 
2 
3 
4 
5 
6 
7 
10 



IA 
RJ 
AT 
TP 
TP 
TP 
TP 
RJ 
RJ 
MJ 
CA 



ZL 

TK 

CA25 

A 

CA26 

SY2 

CA27 

TE 

EW 



ZL11 



TK1 \ 

EW2J 

TF2\ 

TF 

TF1 > 

TF3 

TEl^ 

EWl 

YX 



Assign 64XXX CW 



New file— >CB list 



CW— »list 
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Level Checking Sub. 

IA DA 

MJ (30000) Exit 

1 MJ DA3 Start 

2 40 32 n 

3 TP VA1 A \ 1U 

4 AT VA2 A J | level +( level — >A 

5 TJ DA2 DA O.K. — > exit no I 

6 TP VC5 Q \ Prev. print — >exit 

7 QJ DA DA10 J No I 



10 RJ WA 

11 TP GY12 DP3 f E57 

12 RJ DP2 

13 TP CA24 VC5 Set ind. 

14 MJ DA Exit 
CA DA15 




Inserted in region YX with jump 
at YX11 = MJ KX 

IA KX 

EJ CG11 YV A .— 

1 TP SY11 Q } 

2 QJ KX3 YX12 J Const. I no — >YXl2 

3 TP SY13 Q 7 I 

4 QJ YX12 KX5 J Superscript — *YXl2 no i 

5 TP VD A 7 

6 ZJ KX7 KX20 J After I before — ->KX20 

7 RJ RD RD1 Check fixed pt. const. 

10 TP SY2 RS4 I 

11 RJ RS2 RS J Convert to octal 

12 TP RS3 A ] Assign CW 

13 RJ GW GW1 J 

14 TP Q EW2 I CW— >list 

15 RJ EW EW1 J 

16 TP CA6 PC3 Set PC 

17 MJ YX — >(5) 

20 RJ WA WA1 7 E58 

21 TP GZ DP3 I 

22 RJ DP2 DP J 

23 TP CA36 PC3 Set PC with doesn't matter. 

24 MJ YX — >© 
CA KX25 
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Check Vary List 





-r it 


Tftr 









MJ 





(30000) 


1 


TP 


VL 


A 


^ 


2 


ST 


CG26 


A 


1 


3 


TP 


CG27 


Q 


( Set up N of RP 


4 


QS 


A 


KY6 - 


J 


5 


TP 


SY2 


A 


Syra — >A 


6 


RP 


20000 


KY 


Not in Vary List 


i 


FT 


« j-ij. 


nxiu 


T« .1. 

1.11 W 


10 


RJ 


WA 


WA1 «\ 




11 


TP 


SY2 


GB26 




12 


TP 


SY2 


GB40 


> E28 


13 


TP 


GB22 


DP3 




14 


RJ 


DP2 


DP J 




15 


MJ 
CA 



KY16 


KY 


Exit 



exit 
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Equation Translation 
Right 

Section D - Switch =!/*-+, ; constant 

Section E - Superscript symbols 

Section G - POW ) ( 

Section H - VAR Before START 

Section I - VAR After START, In pseudo Op. list 

Section F - VAR After START, Not in pseudo Op. list 

Section F - also A . 

Region Section Region Section Region Section 

ZM D HL H 

MB D ZR G XQ H 

MD D NY G HS H 

ME D ZQ G HR H 

MA D FN G HD H 

ZZ D FM G HQ H 

ZY D FL G 

MY D FP G 

ZX D ZN G XD 

MZ D NA 

ZW D HZ 

ZV D ZT H HY 

XC D XG H HX 

XF H HW 

XH H ND 

MC E XI H NE 

MH E XE H NC 

MJ E XW H NB 

ML E XV H 

MN E XT H 

MM E XR H HV F 

MQ E HG H NL F 

MG E HH H NJ F 

MP E HF H NI F 

MK E HC H NH F 

MU E XZ H NS F 

MT E HK H NP F 

MS E XY H NK F 

MV E HN H NG F 

MX E HM H NX F 

MW E 

NW F 

NV F 

NN F 

FU F 

NF F 

FK F 

FJ F 

NZ F 

YV F 
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Sections 


of 


connectors; 












Qor>t 1 f\ 


© 








D 


© 








F 


© 








D 


(52) 








E 


© 








H 


© 








I 



851 



Equation Translation Right 



© 





2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 

15 

16 

17 

20 

21 

22 

23 

24 

25 

26 

27 

30 

31 



IA 
RJ 
RJ 
EJ 
EJ 
EJ 
TP 

QJ 
TP 

QJ 
TP 

QJ 
EJ 
EJ 
EJ 
EJ 
EJ 
EJ 
EJ 
EJ 
EJ 
RJ 
TP 
TP 
RJ 
TP 
MJ 
CA 



ZM 

PC 

SY 

CA30 

CG6 

CH5 

SY7 

ZT 

SY13 

MC 

SY11 

zv 

CG4 

CG5 

CH6 

CH7 

CH10 

CH11 

CG14 

CG11 

CG7 

WA 

SY2 

GJI2 

DP2 

CA36 



ZM32 



} 



PCI 

SY1 

ZN 

ZQ 

ZR 

Q 

ZM7 

Q ) 
ZM11 J 

Q ) 
ZM13J 

zw \ 
zw J 
zx 

ZY 
ZZ 

MA 

MD 

YV 

MB 

WA1 "J 

GJ16 [ 

DP3 

DP 

PC3 

ZM 






Pair check 
Symbol — >A 
(— ^ZN 
)— >ZQ 
POW — >ZR 
Var. — >ZT 

Superscript- 



no 



no 



Constant - 
No i 

, or ; — > 
no i 
+ — »ZX 

> ZY 

*— > ZZ 
/— > MA 

A .-^@ 
= -^ MB 



E42 
Set PC 

© 



ZV 



ZW 



Right = 





IA 


MB 







RA 


VA14 


CA3 


1 


TP 


CA21 


PC3 


2 


TP 


CG15 


EW2 


3 


RT 


EWO 


EW1 


4 


MJ 





ZM 




CA 


MB5 





* ='s + 1 
Set PC 
CW— > list 



■© 
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Right Absolute Value 



nnen 





IA 


MD 















TP 


SZ2 


A 






^ 




1 


EJ 


CG7 


MD17 




= 






2 


RP 


20005 


MD6 


} 


+ POW 






3 


EJ 


CH5 


MD17 


-* /• 


— >MD17 




4 

















>— >op 


5 



















6 


EJ 


CA30 


MD17 




( 






7 


EJ 


CG4 


MD17 




t 






10 


EJ 


CG5 


MD17 




t 


J 




11 


TP 


EW2 


Q 






■0^ 


12 


QT 


CG30 


A 


} 






13 


EJ 


CG32 


MD17 


Lib. 


■^open 


14 


TP 


Q 


A 


} 


1 




15 


EJ 


CH14 


MD17 


| o ^ 


open 


16 


MJ 





ME 




Closed 


— >ME 


17 


TP 


CA23 


PC3 




Set PC 


with open 


20 


TP 


CH14 


EW2 \ 






21 


RJ 


EW 


EW1 . 




CW — > 


string 


22 


TP 


CA27 


VA3 




Clear 


(level raisers 


23 


RA 


VA4 


CA3 




1 level, raisers + 1 


24 


RA 


VA2 


CAS 




Raise 


1 level 


25 


MJ 





ZM 




-Ks) 






CA 


MD26 
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Absolute Value 
I (Closed) 

IA ME 

TP CA5 PC3 Set PC 

1 RS VA2 CA3 Lower level 

2 TJ CA3 ME4 Level too low — >ME4 

3 MJ MEIO OK — >ME10 

4 TP CA3 VA2 Set level = I 

5 RJ WA WA1 | 

6 TP GV UP3 > E53 

7 RJ DP2 DP J 

10 TP VA3 A \ ( Raisers = — >ME15 

11 ZJ ME12 ME15 J No i 

12 RJ WA WA1 ) 

13 TP GH24 DP3 > E38 

14 RJ UP2 UP J 

15 TP VA4 A \ 1>I Level raisers — >ME20 

16 TJ CA3 ME20 J No | 

17 RS VA4 CA3 Raisers - I 

20 TP VA5 A \ , 

21 ZJ ME22 ME25 3 Ss. mode i no — >ME25 

22 TP CH13 EW2 ^ Fixed CW >list 

23 RJ EW EW1 J 

24 MJ ZM —*© 

25 TP VA16 Q \ Fixed Eq. >ME22 

26 QJ ME22 ME27 J No i 

27 TP CH12 EW2 \ Floating CW — >list 
30 MJ ME23 J 

CA ME31 
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1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 



IA 
TD 
TD 
TP 
TP 
ZJ 
TP 
RJ 
MJ 
TP 

QJ 
TP 
RJ 
MJ 
CA 



MAO 

CHO 

CHI 

CA13 

VA5 

MA5 

(30000) 

EWO 



VA16 

MA5 

(30000) 

EWO 



MA15 



Right 

/ 



MA12 \ 
MA5 J 
PC3 

A I 
MA10 J 

EW2 \ 

EW1 J 

ZM 

MA12 J 
EW2 1 
EW1 J 

ZM 



Set for / 

Set P.C. 

Ss. mode i no — >MA10 
Fixed CW— »list 

Fixed eq. — >MA5 

No i 

Fl. CW. — >list 



© 



Right 





IA 


ZZO 





TD 


CH2 


1 


TD 


CH3 


2 


MJ 







CA 


ZZ3 



MA12 

MA5 

MA2 



Fltpt. * 
Fixed Pt. * 
>/ sequence 



855 



Right 



(minus) 





1 

2 

3 

4 

5 

6 

7 

10 

11 

Unary - 12 

13 

14 

15 

16 

17 

20 

21 

22 

23 



IA 
TP 
TP 
QT 
EJ 
EJ 
EJ 
TP 
EJ 
EJ 
EJ 
TP 
ZJ 
TP 

QJ 
TP 
RJ 
MJ 
TP 
RJ 
MJ 
CA 



ZY 

CA12 

EW2 

CG30 

CG30 

CI14 

CI15 

Q 

CH12 

CH13 

CG34 

VA5 

ZY16 

VA16 

ZY16 

CI16 

EWO 



CI17 

EWO 



ZY24 



->MYO 



Set P.C. 
Last CW — >Q 

Var. 
Const. 
Spec. CW 



I (closed) >MYO 

)-^>MYO 

Ss. mode — >ZYl6 

No i 

Fixed eq. j no — >ZY2l 
Fixed unary >string 



-»© 

Floating unary - 

— © 



►string 









Binary - 


(minus) 








01 


* 








+ 


(plus) 




IA 


MYO 









TO 


CI35 


MY6 X 
MY11 J 


Set for - 


1 


TO 


CI36 




2 


TP 


VA5 


A \ 
MY4 J 


Ss. mode — >MY6 


3 


ZJ 


MY6 


No\t 


4 


TP 


VA16 


Q ) 
MY11J 


Fixed eq. \r no — >MY11 


5 


QJ 


MY6 


6 


TP 


(30000) 


EW2 \ 

EW1 J 


Fixed + — > string 


7 


RJ 


EWO 


x 1 ^^ 


10 


MJ 





ZM 


^© . 


11 


TP 


(30000) 


EW2 1 

EW1 J 


Floating + — >string 


12 


RJ 


EWO 




13 


MJ 
CA 




MY14 


ZM 


— >© 
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Right 

+ 





1 

2 

3 

4 

5 

6 

7 

10 

11 

Unary +12 



IA 
TP 
TP 
QT 
EJ 
EJ 
EJ 
Tf 
EJ 
EJ 
EJ 
MJ 
CA 



ZXO 

CA12 

EW2 

CG30 

CG30 

CI14 

CI15 

Q 

CH12 

CH13 

CG34 



ZX13 



PC3 

Q 

A 

MZO 

MZO 

MZO. 

A 

MZO"! 

MZO J 

MZO 

ZM 



Set PC 

Last CW — >Q 

Var. t Const, or 
Spec. CW — >MZO 

t (closed) — >MZO 



© 



•MZO 



Binary + 



1 


TO 


CKO 


MY11J 




2 


MJ 
CA 



MZ3 


MY2 










Right , or ; 




IA 


ZW 









TP 


CA11 


PC3 


Set PC 


1 


TP 


VA5 


A 1 
ZW7 J 


Ss. mode ▼ no — >ZW7 


2 


ZJ 


ZW3 


3 


RS 


VA36 


CA3 


# commas - 1 


4 


TP 


CG36 


EW2 | 
EWi ; 


CW — >list 


5 


RJ 


EW 


x^^v 


6 


MJ 





ZM 


-»© 


7 


TP 


VC10 


A 


Lib. mode » no — »ZW25 


10 


EJ 


CK1 


ZW25 


11 


TO 


VC10 


ZW12 ) 




12 


TP 


(30000) 


A 


[ Right level — >ZW22 


13 


AT 


CA3 


A 


> 

No 1 


14 


EJ 


VA1 


ZW22 


15 


RJ 


WA 


WA1 > 




16 


TD 


VC30 


ZW17 




17 


TP 


(30000) 


GY10 


> E56 


20 


TP 


GY 


DP3 




21 


RJ 


DP2 


DP > 




22 


TD 


VC20 


ZW23 1 
CA3 > 


i * commas - 1 


23 


RS 


(30000) 


r 


24 


MJ 





ZW4 




25 


RJ 


WA 


WA1 > 




26 


TP 


GJ24 


DP3 


> E43 


27 


RJ 


DP2 


DP , 




30 


MJ 
CA 



ZW31 


ZW4 
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1st Superscript Symbol 



D2 





IA 


MC 





RP 


10010 


1 


TP 


CA27 


2 


TP 


CH31 


3 


TP 


CH22 


4 


TP 


CA3 


5 


TP 


CH15 


6 


TP 


VA5 


7 


ZJ 


MClO 


10 


RJ 


WA 


11 


TP 


VA6 


12 


TP 


SY2 


13 


TP 


SY3 


14 


TP 


GD21 


15 


RJ 


DP2 


16 


MJ 





17 


TP 


VA16 


20 


QJ 


MC21 


21 


RJ 


WA 


22 


TP 


SY2 


23 


TP 


SY3 


24 


TP 


GE 


25 


RJ 


DP2 


26 


MJ 







CA 


MC27 



} 



Clear variables 

Set POW sequence 

Set count = 1 
Set seq. 

Ss. mode \y no — >MC17 



E32 

Fixed eq. v 
E33 









Sequence 


Loop 






TA 


MH 











RJ 


PC 


PCI 


PX, 




1 


RJ 


SY 


SY1 


Sym. — >A 




2 


TP 


SY13 


Q 






3 


QJ 


MH4 


MJ 


Superscript ♦ no - 


->MJ 


4 


RA 


VA22 


CA3 


Count symbols 




5 


TJ 


CH16 


MK 


5 > # sym. — >MK 


no i 


6 


RJ 


WA 


WAl^l 






7 


TP 


GE16 


DP3> 


E34 




10 


RJ 


DP2 


DP J 






11 


RJ 


SY 


SY1 


Sym. — >A K 
Superscript J 




12 


TP 


SY13 


Q } 

MH14J 




13 


QJ 


MH11 


No ^ 




14 


TP 


CA36 


A \ 
PC2 J 


Set PC with "doesn 1 


t matter" 


15 


AT 


PD1 






16 


TP 


CG34 


EW2 


CW = ) 




17 


TP 


SY2 


A 


Sym.^— ->A 




20 


MJ 
CA 




MH21 


ZM2 


-© 





859 









# Syra 


S 4 




IA 


MJ 


-» 


Not superscript 





TP 


CH17 


A 1 




1 


AT 


CH21 


A V 


) — > Sequence 


2 


AT 


VA22 


A f 




3 


AT 


CA3 


MJ4 1 




4 





30000 


30000 J 


TP CG34 VA+ 


5 


TP 


VC 


Q 1 

MM J 


Dec. pt. in seq. 


6 


QJ 


ML 






CA 


MJ7 







ML no — > MM 



Dec. pt. in seq., i.e., not spec, case * 

IA ML 

SP VA22 17 1 

1 SA VA22 > # sym in seq. — >A — >VA15 

2 AT CA26 VA15J 

3 AT EW3 A Add. — >A 

4 TJ CJ10 MN Fit in list — >MN no i 

5 TP EW4 Q \ . 

6 QJ ML12 ML7 J Prey, print— >ML12 no i 

7 RJ WA WA1 ] 

10 TP FT DP3 f F16 

11 RJ DP2 DP J 

12 TP CJ10 EW3 Set limit 

13 TP CA24 EW4 Set ind. 

14 MJ MH16 
CA ML15 



Seq. Fits in List 





IA 


MN 









TV 


EW3 


MN5 \ 
CA3 J 


Fix address 


1 


RA 


MN5 




2 


TP 


CG27 


Q ) 

MN4 i 


Set n of repeat 


3 


QS 


VA15 




4 


RP 


30000 


MN6 \ 
(30000) J 




5 


TP 


VA23 


Seq. — >list 


6 


RA 


EW3 


VA15 


Set address. 


7 


MJ 
CA 




MN10 


MH16 
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Possible Special Case 





IA 


MMO 









TP 


VA32 


A \ 
MM4 J 


>MM4 


1 


EJ 


CIO 




2 


TP 


CA27 


VC3 


Clear VC3 


3 


MJ 





MM5 




4 


TP 


CH37 


VC3 


Set VC3 for - 


5 


TP 


VA22 


A \ 
MG J 


» symbols = 3— >MGO 


6 


EJ 


CH24 


No I 


*7 


EJ 


CA3 


MP 


= 1 — >MPO 


10 


EJ 


CH25 


MQ 


- 2 — >MQO 4 i 


11 


TC 


CH26 


MM14 \ 
MM15 / 


Set loop addresses 


12 


TD 


CH27 




13 


TP 


CH24 


VC1 


Set index 


14 


TP 


(30000) 


A ) 
MM17 J 


- 1/2— >A 


15 


EJ 


(30000) 


= — >MM17 * — ->MLO 


16 


MJ 





MLO 




17 


RA 


MM14 


CH22 \ 
CH22 i 


Modify 


20 


RA 


MM15 




21 


IJ 


VC1 


MM14 


Return 


22 


TP 


CH30 


EW2 \ 


16100— >CW of - 1/2 — >list 


23 


RJ 


EWO 


EW1 J 




24 


MJ 
CA 




MM25 


MH17 


^© 



Two Symbols in Sequence 




1 
2 
3 
4 
5 
6 
7 

10 
11 
12 
13 
14 
15 
16 
17 
20 
21 



IA 
TP 
EJ 
MJ 
TP 
EJ 
EJ 
EJ 
TP 

QJ 
TP 
RJ 
TP 
TJ 
SP 
SA 
AT 
RJ 
MJ 
CA 



MQ 

VA32 

CI 



VA33 

CI1 

CI3 

CI4 

SZ11 

MQ11 

MI2 

RS2 

CH32 

RS3 

RS3 

VC3 

CI5 

EW 



MQ22 



A I 
MQ3 J 

ML 

A 
MX 
MS 
MV 

Q V 

ML J 
RS4 \ 
RS J 

A \ 
MW J 

EW2 f 

Etfl 

MH16 



No 



►MQ3 
»ML 



Next sym. = 1 — >MX 
= 2 — >MS 
= 3— »MV 



no 



Constant | No — 

Convert to octal 
* > 77 ->MW 

no | 
130XX-) 
I3lxx/->list 



ML 
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* symbols in sequence = 3 





IA 


MG 









TD 


CH34 


MG3 \ 
MG4 J 


Set loop addresses 


1 


TD 


CH27 




2 


TP 


CH25 


VC1 


Set index = 2 


3 


TP 


(30000) 


A 


1/2— > A 


4 


EJ 


(30000) 


MG6 


= Special case — >MG6 


5 


MJ 





ML 


* >ML 


6 


RA 


MG3 


CH22 1 
CH22 J 


Modify addresses 


7 


RA 


MG4 




10 


IJ 


VC1 


MG3 




11 


TP 


CH33 


EW2 \ 
EWl J 


CW — >list 


12 


RJ 


EW 




13 


MJ 
CA 



MG14 


MH17 


— •© 



* symbols = 1 

IA MP 

TP VA32 A 

1 EJ dl MH16 = 1— >© 

2 EJ CI3 MS = 2 — >MS 

3 EJ CI4 MV = 3— >MV 

4 MJ MQ7 >MQ7 

CA MP5 
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Superscript Symbol 





1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 

15 



IA 
TP 

QJ 
TP 
EJ 
TP 
TP 
AT 
TV 
TP 
TP 
AT 
TV 
TP 
MJ 
CA 



MKO 

SY11 

MTO 

SY2 

CG12 

CA16 

VA22 

CH17 

A 

CH35 

VA22 

CH20 

A 

SY2 



MK16 




Constant — >WIO 
no i 

>MD 

No (assume /) 
Set PC 



/ 



►sequence 



/ — especial sequence 



->get next symbol of sequence 









Superscript - 




IA 


MUO 









TP 


CA15 


PC3 


Set PC 


1 


TP 


VA22 


A 1 




2 


AT 


CH17 


A 1 


v >sequence 


3 


TV 


A 


MU4 


* 


4 


TP 


CH36 


(30000) t 




5 


TP 


VA22 


A 1 




6 


AT 


CH20 


A 


> special 

> 


7 


TV 


A 


MU10 




10 


TP 


SY2 


(30000) J 




11 


MJ 
CA 



MU12 


MH 


*» vft in*n 


lull 
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Superscript Up Constant 





IA 


MT 





TP 


CA14 


1 


RJ 


RB 


2 


TP 


SY2 


3 


TP 


SY3 


4 


RJ 


Mr 


5 


TP 


MI2 


6 


TP 


MI3 


7 


RJ 


GG2 


10 


TP 


GG3 


11 


RJ 


GW 


12 


TP 


Q 


13 


TP 


VA22 


14 


AT 


CH17 


15 


TV 


A 


16 


TP 


VC2 


17 


TP 


VA22 


20 


AT 


CH20 


21 


TV 


A 


22 


TP 


GG3 


23 


TP 


SY6 


24 


ZJ 


MT25 


25 


TP 


CA24 


26 


MJ 







CA 


MT27 



PC3 


Set PC 


RBI 


Check constant 


MI4 "| 




MI5 > 


Lower constant 


Mil J 




GG4 




GG5 } 


Convert to floating point 


GG J 




A \ 
GWI | 


Assign CW 




VC2 


Store CW 


A 1 




A 


CW — > sequence 


MT16 




(30000), 




A ) 




A I 


pi t nt <»«h"1' "> 


rlLpt. isOilob. ^ 


MT22 1 


Special sequence 


(30000) J 




A ) 
MH J 


Pt. in sequence \r no — > 


VC 


Set ind. 


MH 


>return 



MH 



Constant = 2 





IA 


MS 





TP 


VC3 


1 


AT 


CI6 


2 


RJ 


EW 


3 


MJ 







CA 


MS4 



A 

EW2) 
EW1J 
MH17 



CW >list 
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Constant 


= 3 




IA 


MV 









TP 


VC3 


A 




1 


AT 


CI7 


EW2 


CW 


2 


RJ 


EW 


EWI 




3 


MJ 
CA 




MV4 


MH17 





•list 



© 









Constant = 1 




IA 


MX 







TP 


CIIO 


EW2\ CW — 
EWI J 


1 


RJ 


EW 


2 


MJ 





MH17 — h> (j 




CA 


MX3 





list 





IA 


MW 







RA 


VA23 


CA3 


1 


MJ 





ML 




CA 


MW2 





I Const. I > 77 

Change POW to 101 



865 









R: 


ight 


POW 




IA 


ZR 











TP 


CH37 


EW2 \ 
EW1 J 




CW — > string 


1 


RJ 


EWO 






2 


TP 


CA17 


PC3 




Set PC 


3 


TP 


VA5 


A ) 

NY J 




Ss. mode * 


4 


ZJ 


ZR5 




5 


RJ 


WA 


WA1 ^ 






6 


TP 


VA6 


GF10 I 






7 


TP 


GF 


UP3 f 




E35 


10 


RJ 


UP2 


UP J 






11 


MJ 
CA 



ZR12 


ZM 




— © 





IA 


ZQ 





TP 


CA5 


1 


TP 


CG34 


2 


RJ 


EWO 


3 


TP 


VA4 


4 


ZJ 


FP 


5 


TP 


VA3 


6 


ZJ 


ZQ7 


7 


RS 


VA3 


10 


RS 


VA1 


11 


TJ 


CA3 


12 


EJ 


VA5 


13 


TD 


VC10 


14 


EJ 


(30000) 


15 


MJ 







CA 


ZQ16 



no — >NY 



Not Ss. mode 

IA NY 

TP VA16 Q I Floating pt. eq. — >ZM 

1 QJ NY2 ZM J No \ 

2 RJ WA 



3 TP GF12 DP3 > E36 

4 RJ 112 ~- , ^ 

5 MJ ZM — >(C) 
CA NY6 




Right ) 



PC3 Set PC 

EW2 \ CW — > string 

EW1 J 

A ") Last raiser | — >FP 

ZQ5 ) no ^ 

A ( raisers = -* ZQ10 

ZQ10 No i 

CA3 ( raisers - 1 

CA3 Lower level 

FLO Too low— *.FLO 

FM Leaving Ss. mode — >FMO 

ZQ14) Leaving Lib. — >FNO 



fn ; 

ZM >© 



866 









Leaving 


Lib. 




IA 


FN 


\ 







TO 


VC20 


FN1 


# c 


1 


TP 


(30000) 


A 




2 


ZJ 


FN3 


FN10 J 


No 


3 


RJ 


WA 


WA1 n 




4 


TD 


VC30 


FN5 




5 


TP 


(30000) 


GH13 > 


E37 


6 


TP 


GH 


DP3 






7 


RJ 


UP2 


UP ) 




10 


RS 


VC10 


CH23 1 




11 


RS 


VC20 


CH23 > 


Tak 


12 


RS 


VC30 


CH23 J 




13 


MJ 





ZM 


— > 




CA 


FN14 









# commas correct — >FN10 

I 



Take Lib. off list 



Leaving Ss. mode 





IA 


FM 







TP 


CA27 


VA5 


1 


TP 


VA36 


A 


2 


ZJ 


FM3 


ZM 


3 


RJ 


WA 


WA1 


4 


TP 


VA6 


GI17 


5 


TP 


GI12 


UP3 


6 


RJ 


UP2 


UP 


7 


MJ 





ZM 




CA 


FM10 





Clear Ss. mode 

* Ss. correct— >© 

No ] 



E40 



■© 









Level too 


Low 




IA 


FL 









TP 


CA3 


VA1 


Set level = 


1 


TP 


VA 


Q 1 
FL3 J 


Previous point 


2 


QJ 


ZM 


No | 


3 


RJ 


WA 


WA1 1 


4 


TP 


GI 


UP3 \ 


E39 


5 


RJ 


UP2 


UP J 




6 


TP 


CA24 


VA 


Set point 

— © 


7 


MJ 





ZM 




CA 


FL10 







•ZM 
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Interlocking ( and 





IA 


FP 









RJ 


WA 


WAll 




1 


TP 


GH24 


DP3 > 


E38 


2 


RJ 


DP2 


DP J 




3 


MJ 
CA 



FP4 


ZQIO 


> ) Section 



Right ( 





IA 


ZNO 









TP 


CA4 


PC3 


Set PC 


1 


TP 


CG24 


EW2 \ 
EWl J 


CW — > string 


2 


RJ 


EW 




3 


TP 


VA5 


A \ 
ZN11J 


Not Ss. mode — >ZN11 


4 


ZJ 


ZN5 


Ss. mode w 


5 


RJ 


wa 


WA1 >! 




6 


TP 


VA6 


GJ10 I 


E41 


7 


TP 


GJ 


DP3 [ 




10 


RJ 


DP2 


UP J 


i 


11 


TP 


CA27 


VA4 


Clear 1 level raisers 


12 


RA 


VA3 


CA3 \ 
CA3 J 


Raise level 


13 


RA 


VA1 


s*—s. 


14 


MJ 
CA 



ZN15 


ZM 


^© 
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Right-Constant 

IA ZVO 

Dl TP CA6 PC3 Set PC 

1 TP VA5 A 7 Ss. mode — >ZV5 

2 ZJ ZV5 ZV3 ) No \lr 

3 TP VA16 

4 QJ ZV5 XCO J Fixed eq. i no — >XCO 

5 RJ RD RD1 Check const. 

6 TP SY2 RS4 ] Convert to fixed point 





IA 


XCO 





RJ 


RBO 


1 


TP 


SY2 


2 


TP 


SY3 


3 


RJ 


GG2 


4 


TP 


GG3 


5 


MJ 







CA 


XC6 



A 
ZV3 


j 


Q 
XCO 


) 


RD1 




RS4 


j 


RSO 


A 
GW1 


i 


EW2 


j 


EW1 


ZM 





7 RJ RS2 

10 TP RS3 A ( Assign CW 

11 RJ GWO 

12 TP Q EW2 ( CW — > string-out 

13 RJ EWO 

14 MJ ZM New CW >listl err. #1 



CA ZV15 — >(C) J 



w CW- 



Floating Point Constant 



RBI Check const. 

664^1 

GG5 > Convert to fltpt, 

GGOJ 

A Const. — >A 

ZV11 



858 



(!) 









Right - Var. - Before 




IA 


ZT 









TP 


VD 


A \ 

ZT2 ) 


Before — >ZT2 


1 


ZJ 


XD 


After — >XD =® 


2 


RJ 


TU 


TD1 ) 
XE J 


Not in Ftn. list — 


3 


MJ 





In i 


4 


TP 


T03 


EW2 ) 
EW1 J 


CW — > string 


5 


RJ 


EW 




6 


TP 


VA5 


A 


Ss. mode » no — *■! 


7 


ZJ 


ZT10 


XF 


10 


TP 


TU3 


Q 1 

A J 


CW-^A 


11 


QT 


CG17 




12 


EJ 


CI25 


XG 


75xxx — > XG no 


13 


TP 


SY10 


Q 


Assume 62xxx 


14 


QJ 


ZT22 


ZT15 


UKUW— >ZT22 no i 


15 


RJ 


WA 


WA1 >, 




16 


TP 


SY2 


ER6 




17 


TP 


VA6 


ER20 


> E21 


20 


TP 


ER 


UP3 




21 


RJ 


DP2 


DP > 




22 


TP 


CA6 


PC3 


Set PC 


23 


MJ 
CA 



ZT24 


ZM 


^© 



►XE 



XF 



Right - In Ftn. list Ss. mode 75xxx 





IA 


XG 









TP 


CA7 


PC3 1 
PCI J 


— >PC 


1 


RJ 


PC 




2 


RJ 


WA 


WA1 \ 




3 


TP 


SY2 


EP30 




4 


TP 


VA6 


EP41 > 


E20 


5 


TP 


EP22 


UP3 




6 


RJ 


DP2 


UP > 




7 


RJ 


SY 


SY1 


Sym- — >A j 
(— >XG12 no i 


10 


EJ 


CA30 


XG12 


11 


MJ 





ZM3 


— © 


12 


TP 


GP17 


DP3 \ 
DP ! 


H Ss. not checked" 


13 


RJ 


UP2 




14 


RJ 


FV 


FV1 


delete Ss. 


15 


MJ 





YV 


A VV*@ 


16 


MJ 
CA 



XG17 


ZM1 


—>© 
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Not Ss. mode-in Ftn. list 





IA 


XF 









TP 


TU3 


Q ) 
A I 


xxOOO - 


1 


QT 


CG17 




2 


EJ 


CI25 


XH 


75xxx- 


3 


TP 


SY10 


Q \ 
XF11 J 




4 


QJ 


XF5 


IJKDVI 


5 


RJ 


WA 


WA1 ^ 




6 


TP 


SY2 


ER27 I 


E22 


7 


TP 


ER22 


DP3 f 




10 


RJ 


DP2 


DP } 




11 


TP 


CA6 


PC3 


Set PC 


12 


MJ 
CA 



XF13 


ZM 


->© 



-XH no \ 
no — >XF11 



75xxx 





IA 


XH 







TP 


CA7 


PC3 


1 


RJ 


PC 


PCI 


2 


RJ 


SY 


SY1 


3 


EJ 


CA30 


XI 


4 


RJ 


WA 


WA1 


5 


TP 


SZ2 


EX6 


6 


TP 


EX 


DP3 


7 


RJ 


DP2 


DP 


10 


TP 


SY2 


A 


11 


MJ 





ZM3 




CA 


XH12 





Do PC 

Sym— >k 

( — > XI no 

E23 














75xxx ( 




IA 


XI 









TP 


CA4 


PC3 


Set PC 


1 


TP 


VA1 


VA5 \ 
VA6 J 


Set Ss. mode 


2 


TP 


SZ2 




3 


TP 


CA27 


VA36 


Clear # commas 


4 


TP 


CG24 


EW1 / 


CW — >list 


5 


RJ 


EW 




6 


MJ 
CA 



XI7 


ZNH 


— c-*© 
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Right-Before-Var. 
Not in Ftn. list 





IA 


XE 











RJ 


TA 


TA1 


} 




1 


MJ 





XQ 


Not in CB List — >. 


2 


TP 


TA4 


EW2 


} 


CW — >list 


3 


RJ 


EW 


EW1 




4 


TP 


CA6 


PC3 




Set PC 


5 


TP 


VAl6 


Q 


\ 

j 


Not fixed eq. — >X1 






VC"7 


XR 


Fixed ^ 


7 


TP 


TA4 


Q 






10 


QT 


CG17 


A 






11 


EJ 


CG17 


XT 




77xxx— > XT 


12 


EJ 


CA33 


XV 




66xxx— > XV 


13 


EJ 


CA31 


XW 




65xxx— > XW 


14 


EJ 


CA25 


ZM 




64xxx— >© 


15 


IP 


CA20 


PC3 


} 


5xxxx ^ 


16 


RJ 


PC 


PCI 


Do PC 


17 


RJ 


WA 


WA1 


•\ 


E13 


20 


TP 


SY2 


EL4 


\ 




21 


TP 


EL 


UP3 


f 




22 


RJ 


DP2 


DP 


J 




23 


RJ 


SY 


SY1 




Sym— >A 


24 


EJ 


CA30 


XE26 


(— >XE26 


25 


MJ 





ZM3 




No— >© 


26 


TP 


GP 


DP3 


} 


n Args not checked" 


27 


RJ 


UP2 


UP 




30 


RJ 


FV 


FV1 




Delete LIB 


31 


MJ 





YV 






32 


MJ 





ZM1 






CA 


XE33 









in 



65xxx 





IA 


XW 







RJ 


WA 


WA1 
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TP 


SY2 


EL17 


2 


TP 


EL12 


UP3 


3 


RJ 


UP2 


DP 


4 


MJ 





ZM 




CA 


XW5 





E14 



© 
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66xxx 





IA 


XV 





TP 


CA10 
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RJ 


PC 
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RJ 


WA 


3 


TP 


SY2 


4 


TP 


EM 
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RJ 


DP2 


6 


RJ 


SY 


7 


EJ 


CA30 


10 


MJ 





11 


TP 


GP 


12 


RJ 


DP2 


13 


RJ 


FV 


14 


MJ 





15 


MJ 







CA 


XV16 



PC3| 
PCI f 
WA1-N 
EM3 I 
DPS f 
DP ) 
SY1 
XVI 1 
ZM3 
DP3 ") 
DP J 
FV1 
YV 
ZM1 



Do PC 
E15 



Sym — >k 
( — >XV11 



'© 



no 



I 



Args not checked" 
Delete Ftn. 
— >© ^ 



77xxx 





IA 


XT 









TP 


CA7 


PC3 ] 

PCI J 




1 


RJ 


PC 


\ Do PC 


2 


RJ 


WA 


WA1 ] 




3 


TP 


SY2 


EM17 


L 


4 


TP 


EMU 


DP3 


E16 


5 


RJ 


DP2 


DP J 




6 


RJ 


SY 


SY1 


Sym — >A 


7 


EJ 


CA30 


XT11 


(— >mi 


10 


MJ 





ZM3 


No—?.© 


11 


TP 


GP17 


DP3 ' 


H Ss. not checked" 


12 


RJ 


DP2 


DP , 


13 


RJ 


FV 


FV1 


Delete Ss. 


14 


MJ 





YV 


A .-^@ 


15 


MJ 
CA 



XT16 


ZM1 


>C 
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Var. 










Before 


- In CB List 








Floating Point Equation 




IA 


XR 











TP 


VA5 


A 


] 


Ss. mode XY 


1 


ZJ 


XY 


XR2 


No 


2 


TP 


TA4 


Q 


I 




3 


QT 


CG17 


A 


xxOOO— » A 


4 


EJ 


CG17 


XZ 




77xxx— »• XZ 


5 


EJ 


CA33 


HC 




66xxx — > HC 


6 


EJ 


CA31 


ZM 




65xxx — >(CJ 


7 


EJ 


CA25 


HF 




64xxx— » HF 


10 


TP 


CA20 


PC3 


I 


5xxxx | pair check 


11 


RJ 


PC 


PCI 


y^™*^ 


12 


TP 


TA4 


Q 


7 


# operands = 1— *(C) 


13 


QT 


CI31 


VA13 




No I 


14 


TJ 


CH25 


ZM1 


J 


15 


RJ 


SY 


SY1 




Sym — >A 1 
( — >HG no i 


16 


EJ 


CA30 


HG 




17 


TP 


SZ2 


EN5 


7 




20 


RJ 


WA 


WA1 


I 




21 


TP 


EN 


DP3 




E17 


22 


RJ 


DP2 


DP 


j 




23 


TP 


SY2 


A 




Sym — >A 


24 


MJ 
CA 



XR25 


ZM2 




— © 



Lib. ( 

IA HG 

TP VA1 VA12 Set Lib. 

1 RA VC20 CH23? Room for Lib. >HH 

2 TJ CI33 i ) No | 

3 RS VC20 CH23 Add. - 1 

4 RJ WA WA1 n 

5 TP SZ2 GM25I 

6 TP GM11 DP3 f E49 

7 RJ UP2 DP J 

10 RJ FV FV1 Delete Lib. args 

11 MJ YV A .^r->C2 

12 MJ ZM1 — >© 
CA HG13 
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Room for Lib. 




1 
2 
3 
4 
5 
6 
7 
10 
11 



IA 
TV 
TP 
ST 
RA 
TV 
TP 
RA 
TV 
TP 
MJ 
CA 



HH 

A 

VA13 

CA3 

VC10 

A 

VA12 

VC30 

A 

SZ2 



HH12 



HH2 

A 

(30000) 

CH23 

HH5 

(30000) ] 

CH23 ] 

HH10 > XS3 of Lib. — >list 

(30000) J 

ZN >( section 



# commas — >list 
Lib. level — >list 



64xxx 





IA 


HF 





RJ 


WA 


1 


TP 


SY2 


2 


TP 


EK20 


3 


RJ 


DP2 


4 


MJ 







CA 


HF5 



WA1 ^ 

EK251 

DP3 

DP 

ZM 



E12 



© 









Floating 


Pt. 


Eq. Right 
66xxx I 




IA 


HC 











TP 


CA10 


PC3| 
PCI/ 




Pair check 


1 


RJ 


PC 






2 


RJ 


SY 


SY1 




Sym — >A 


3 


EJ 


CA30 


WD 




( ~>WD 


4 


MJ 
CA 



HC5 


ZM3 




— © 



no 
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77xxx | 





IA 


XZ 





TP 


CA7 


1 


RJ 


PC 


2 


RJ 


SY 


3 


EJ 


CA30 


4 


RJ 


WA 


5 


TP 


SZ2 


6 


TP 


EN22 


7 


RJ 


UP2 


10 


TP 


SY2 


11 


MJ 







CA 


XZ12 



PC3\ 
PCI J 


Pair check 




SY1 


Sym — >A 


HK 


( — >HK 


WA1 ] 




EN30 \ 


E18 


UP3 ) 




UP J 




A 


Sym — >A 


ZM3 


-+(c) 



no 



77xxx ( 

IA HK 

TP VA1 VA5 n Set Ss. mode 

1 TP TA5 

2 QT CA2 A ( Ss. - 1 — ^VA36 

3 ST CA3 

4 TP SZ2 VA6 Store XS3 of variable 




5 TP CA4 PC3 Set PC 

6 TP CG24 EW2 1 ( — >list 

7 RJ EW _... „ 
10 MJ ZN11 — > (— >© 

CA HK11 
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Ss. mode - Right - In CB List 





IA 


XY 









TP 


TA4 


I } 




1 


QT 


CG17 


xxOOO— > A 


2 


EJ 


CG17 


HL 


77xxx— > HL 


3 


EJ 


CA33 


HM 


66xxx— > HM 


4 


EJ 


CA31 


HN 


65xxx— » HN 


5 


EJ 


CA25 


ZM 


64xxx— >© 


6 


TP 


CA20 


PC3 *) 
PCI J 


5xxxx ^ 


7 


RJ 


PC 


Do pair check 


10 


RJ 


WA 


WA1 n 




11 


TP 


SY2 


EJ4 




12 


TP 


VA6 


EJ13 } 


E9 


13 


TP 


EJ 


UP3 




14 


RJ 


DP2 


DP J 




15 


RJ 


SY 


SY1 


Sym — >A 


16 


EJ 


CA30 


XY20 


( — >XY20 no \ 


17 


MJ 





ZM3 


-^© 


20 


TP 


GP25 


DP3 7 
UP J 




21 


RJ 


DP2 


"Args not checked" 


22 


RJ 


FV 


FV1 


Delete Lib. 


23 


MJ 





YV 


— >@ 


24 


MJ 
CA 



XY25 


ZM1 


^© 





IA 


HN 





TP 


CA6 


1 


RJ 


WA 


2 


TP 


SY2 


3 


TP 


VA6 


4 


TP 


ER 


5 


RJ 


DP2 


6 


MJ 







CA 


HN7 



65xxx 



PC3 Set PC 

WA1 >, 

ER6 

ER20 > E21 

DP3 

DP ) 

ZM — > © 
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66xxx 





1A 


\M 





TP 


CA10 


1 


RJ 


PC 


2 


RJ 


WA 


3 


TP 


SY2 


4 


TP 


VA6 


5 


TP 


EJ15 


6 


RJ 


DP2 


I 


RJ 


SY 


10 


EJ 


CA30 


11 


MJ 







CA 


HM12 



PC3 \ 
PCI J 
WA1 n 
EJ20 
EJ25 > 
UP3 
UP ) 
SYl 
WD 
ZM3 



Do PC 



E10 



Syiu — =»«. i 

(— -yro no w 

— © 



77xxx 





IA 


HL 





TP 


CA7 


1 


RJ 


PC 


2 


RJ 


WA 


3 


TP 


SY2 


4 


TP 


VA6 


5 


TP 


EI20 


6 


RJ 


DP2 


7 


RJ 


SY 


10 


EJ 


CA30 


11 


MJ 





12 


TP 


GP17 


13 


RJ 


UP2 


14 


RJ 


FV 


15 


MJ 





16 


MJ 







CA 


HL17 



PC3 ) 

PCI J 

WA1 . 

EI26 I 

EI35 V 

DP3 

DP 

SYl 

HL12 

ZM3 

DP3 \ 

DP J 

FVl 

YV 

ZM1 



Do PC 
E8 



Sym — >A I 
(— >HL12 no 1 

— © 

*Ss. not checked" 
Delete Ss. 
A. — >(C2) 
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Variable Right - Before Not in Ftn. or CB Lists 



Check symbol 

Set to add to CB List 





IA 


XQ 







RJ 


RH 


RH1 


1 


TP 


CA27 


TF3 


2 


TP 


CA26 


TF 


3 


TP 


SY2 


TF1 


4 


TP 


VA16 


Q 


5 


QJ 


HQ 


XQ6 


6 


TP 


VA5 


A 


7 


ZJ 


XQ10 


HR 


10 


TP 


SY10 


Q 


11 


QJ 


XQ12 


HS 


12 


RJ 


TK 


TK1 


13 


AT 


CA25 


TF2 


14 


TP 


A 


EW2 


15 


RJ 


EW 


EW1 


16 


RJ 


TE 


TE1 


17 


TP 


CA6 


PC3 


20 


MJ 





ZM 




CA 


XQ21 





Fixed — »HQ 

No \ 

Not Ss. — >m 

Ss. I 

Not IJKUW — >m 

Yes J 

CW = 64xxx 

CW — >list 

File— >CB List 
Set PC 

— © 









Not IJKLM 






IA 


HS 









RJ 


WA 


WA1 -n 




1 


TP 


SY2 


EK6 




2 


TP 


VA6 


EK16 > 


en 


3 


TP 


EK 


DP3 




4 


RJ 


DP2 


DP J 




5 


RJ 


TK 


TK1 ^ 




6 


AT 


CA31 


EW2 } 


Assign 65xxx CW 


7 


TP 


A 


TF2 I 




10 


RJ 


EW 


EW1 


CW — >list 


11 


RJ 


TE 


TEl 


file — »CB List 


12 


TP 


CA6 


PC3 


Set PC 

—(c) 


13 


MJ 





ZM 




CA 


HS14 
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Not 


Ss. 


Mode 




IA 


HR 











TP 


CA6 


PC3 




Set PC 


1 


TP 


SY10 


Q 




UKLM— >HU 


2 


QJ 


HU 


HR3 


No \ 


3 


RJ 


TK 


TK1 


} 


65xxx CW 


4 


AT 


CA31 


TF2 




5 


TP 


A 


EW2 


} 


CW — -»list 


6 


RJ 


EW 


EW1 




7 


RJ 


TE 


TE1 




File— >CB ! 


10 


MJ 
CA 



HR11 


ZM 




— *© 





IA 


HD 





RJ 


WA 


1 


TP 


SY2 


2 


TP 


EK20 


3 


RJ 


DP2 


4 


RJ 


TK 


5 


AT 


CA25 


6 


TP 


A 


7 


RJ 


EW 


10 


RJ 


TE 


11 


TP 


CA6 


12 


MJ 







CA 


HU13 



UKUVI 




E12 

Assign 64xxx CW 

CW — »list 

File — *-CB List 
Set PC 



■© 



Fixed Equation 

IA HQ 

TP SY10 Q ( IJKLM— >XQ11 

1 QJ XQll HQ2 ) No 1 

2 RJ WA WA1 ^ 

3 TP SY2 EL17 V E14 

4 TP EL12 DP3 

5 RJ UP2 DP 

6 MJ HS5 > 65xxx CW 

CA HQ7 
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Right-After-Var. In P. Op. List 



© 





IA 


XD 





RJ 


TS 


1 


MJ 





2 


TP 


TS3 


3 


RJ 


EW 


4 


TP 


CA6 


5 


TP 


VA16 


6 


QJ 


HW 


7 


TP 


VA5 


10 


ZJ 


HX 


11 


TP 


TS3 


12 


QT 


CG17 


13 


EJ 


CG21 


14 


EJ 


CG22 


15 


TP 


CA7 


16 


RJ 


PC 


17 


RJ 


SY 


20 


EJ 


CA30 


21 


RJ 


WA 


22 


TP 


SZ2 


23 


TP 


EP 


24 


RJ 


DP2 


25 


TP 


SY2 


26 


MJ 







CA 


XD27 



Not in P.Op. list— > HV 

In | 

CW — > string 

Set PC 

Fixed eq. — *-HW 

No | 

Ss, mode — >HX 

No i 

xxOOO ••— > A 

6lxxx— »HY 

63xxx— >HZ 

76Yxx i 

Do PC 

Sym — > A | 

( — > NA no \r 

E19 



Sym—- >A 











76Yxx ( 




IA 


NA 









TP 


TS3 


Q 1 




1 


QT 


CG25 


Q \ 


«Ss. — >Q 


2 


LQ 


Q 


36 J 




3 


TP 


Q 


a i 

VA36J 


* commas — > 1 


4 


ST 


CA3 




5 


TP 


VA1 


VA5 \ 
VA6 J 


Set Ss. mode 


6 


TP 


SZ2 




7 


TP 


CG24 


EW2 ) 
EW1 J 


( CW— >list 


10 


RJ 


EW 




11 


TP 


CA4 


PC3 


Set PC 


12 


MJ 
CA 



NA13 


ZN11 


— (— © 



VA36 
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63xxx 





IA 


Y& 







TP 


SY10 


Q 


1 


QJ 


HZ2 


ZM 


2 


RJ 


WA 


WAl 


3 


TP 


SY2 


EI5 


4 


TP 


EI 


UP3 


5 


RJ 


UP2 


DP 


6 


MJ 





ZM 




n a 


HZ7 





IJKLVI \ no^>@ 
E7 



6lxxx 





IA 


m 









TP 


CAIO 


PC3 ) 
PCI ; 


Do PC 


1 


RJ 


PC 




2 


RJ 


SY 


SY1 


Sym— >A 


3 


EJ 


CA30 


WD 


(— »WD no 


4 


MJ 
CA 



HY5 


ZM3 


— © 



SS Mode 





IA 


HX 









TP 


TS3 


G ? 


xxOOO — >A 


1 


QT 


CG17 


A 3 




2 


EJ 


CG21 


NB 


6lxxx — >NB 


3 


EJ 


CG22 


NC 


63xxx — >NC 


4 


TP 


CA7 


PC3 ? 
PCI J 


76Yxx J, 


5 


RJ 


PC 


Do PC 


6 


RJ 


WA 


WAl 7 




7 


TP 


SY2 


EH6 ( 




10 


TP 


VA6 


EH20J 


E5 


11 


TP 


EH 


DP3 




12 


RJ 


DP2 


DP J 




13 


RJ 


SY 


SY1 


Sym — >A 


14 


EJ 


CA30 


HX16 


( — >HX16 


15 


MJ 





ZM3 


^© 


16 


RJ 


FV 


FV1 


Delete SS 


17 


MJ 





YV 




20 


MJ 





ZM1 




CA 


HX21 




^»-m~S 
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Fixed Equat 


ion 




IA 


HW 









TP 


TS3 


Q } 
A J 


xxOOO— > A 


1 


QT 


CG17 




2 


EJ 


CG21 


ND 


6lxxx — >ND 


3 


EJ 


CG22 


NE 


63xxx — > NE 


4 


TP 


CA7 


PC3 \ 
PCI J 


76Yxx * 


5 


RJ 


PC 


Do PC 


6 


RJ 


WA 


WAl N 




7 


TP 


SY2 


EF24 I 


E2 


10 


TP 


EF16 


DP3 f 




11 


RJ 


DP2 


UP ) 




12 


RJ 


SY 


SYl 


Sym- — >A 


13 


EJ 


CA30 


HW15 


(— >HW15 


14 


MJ 





ZM3 


— © 


15 


TP 


GP10 


DP3 \ 
DP J 


16 


RJ 


DP2 


"Ss. not checked" 


17 


RJ 


FV 


FV1 


Delete Ss. 


20 


MJ 





YV 


A .— ^£h 


21 


MJ 





ZM1 


— © ^ 




CA 


HW22 







IA 


ND 









TP 


CA10 


PC3 


} 


1 


RJ 


PC 


PCI 


2 


RJ 


WA 


WAl 


N 


3 


TP 


SY2 


EF4 


I 


4 


TP 


EF 


DP3 




5 


RJ 


DP2 


DP 


J 


6 


RJ 


SY 


SYl 




7 


EJ 


CA30 


WD 




10 


MJ 
CA 



NDll 


ZM3 





6lxxx 



Do PC 



El 

Sym — *A 

( — >WD no 

— © 



882 



63xxx 





IA 


NE 





TP 


SY10 


1 


QJ 


ZM 


2 


RJ 


WA 


3 


TP 


SY2 


4 


TP 


EG 


5 


RJ 


DP2 


6 


MJ 







CA 


NE7 




IJKLM— >© 
no ^ 



E3 



© 









SS Mode 63xxx 




IA 


NC 







TP 


SYIO 


Q 1 IJKIM 
NC2 i No 1 
WAl -n * 


1 


QJ 


ZM 


2 


RJ 


WA 


3 


TP 


SY2 


EH30 


4 


TP 


VA6 


EH42 V E6 


5 


TP 


EH22 


DP3 




6 


RJ 


DP2 


UP J 


7 


MJ 





ZM — >(£ 




CA 


NCIO 







■© 



6lxxx 





IA 


NB 









TP 


CA10 


PCS ) 
PCI / 




1 


RJ 


PC 


Do PC 


2 


RJ 


WA 


WAl ^ 




3 


TP 


SY2 


EG24 I 




4 


TP 


VA6 


EG36 > 


E4 


5 


TP 


EG20 


DP3 




6 


RJ 


DP2 


DP ) 




7 


RJ 


SY 


SY1 


Sym— > A 


10 


EJ 


CA30 


WD 


(— >WD 


11 


MJ 
CA 



NB12 


ZM3 


-© 
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Right, After, Var. Not in Pseudo Op. List 

IA HV 

RJ TA TA1 7 . 

1 MJ NF J Not in CB List — >NF in i 

2 TP TA4 Q 1 4xxxx — >FU 

3 QT CG30 A \ , 

4 EJ CG31 FU J No \t 

5 TP TA4 EW2 7 

6 RJ EW EW1 3 CW — >list 

7 TP CA6 PC3 Set PC 

10 TP VA16 Q \ Fixed— >NG 

11 QJ NG HV12 J Floating 1 

12 TP VA5 A ?■ Ss. mode— >NH 

13 ZJ NH HV14 J No i 

14 TP TA4 Q I 

15 QT CG17 A J CW — >A 

16 EJ CG17 NI 77xxx — >NI 

17 EJ CA25 NJ 64xxx — >NJ 

20 EJ CA31 ZM 65xxx — z© 

21 EJ CA33 NL 66xxx — >NL 

22 TP CA20 PC3 1 5xxxx I 

23 RJ PC PCI J Do PC 

24 TP TA4 Q ] CW — >A — >VA13 

25 QT CI31 VA13J 

26 TJ CH25 ZM1 * operands = 1— 

27 RJ SY SY1 Sym. — >A . 

30 EJ CA30 HG ( — >HG no I 

31 RJ WA WA1 

32 TP SZ2 EN5 V E17 

33 TP EN UP3 

34 RJ UP2 UP 

35 TP SY2 A Sym ; ^- 

36 MJ ZM3 ^© 
CA HV37 



►© no i 





IA 


NL 







TP 


CA10 


PC3 


1 


RJ 


PC 


PCI 


2 


RJ 


SY 


SY1 


3 


EJ 


CA30 


WD 


4 


MJ 





ZM3 




CA 


NL5 





66xxx 



Pair check 

Sym — >A 
(— >WD 

-Ks) 
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64xxx 





XA 


NJ 







RJ 


WA 


WA1 


1 


rpp 


SY2 


EK25 


2 


TP 


EK20 


DP3 


3 


RJ 


UP2 


DP 


4 


MJ 





ZM 




CA 


NJ5 







IA 


NI 





TP 


CA7 


I 


RJ 


PC 


2 


RJ 


SI 


3 


EJ 


CA30 


4 


RJ 


WA 


5 


TP 


SZ2 


6 


TP 


EN22 


7 


RJ 


UP2 


10 


TP 


SY2 


11 


MJ 





12 


TP 


VA1 


13 


TP 


SZ2 


14 


TP 


TA5 


15 


QT 


CA2 


16 


ST 


CA3 


17 


TP 


CG24 


20 


RJ 


EW 


21 


TP 


CA4 


22 


MJ 







CA 


NI23 



E12 



77xxx 



Do PC 



Sym. — > A 

( — >NI12 no * 

E18 



Sym — >A 
Set Ss. mode 



Ss. - 1 — > storage 

( — >list 

Set PC 

— >( section ->© 
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Ss. Mode 






IA 


NH 









TP 


TA4 


Q } 
A J 


xxOOO— > A 


1 


QT 


CG17 




2 


EJ 


CG17 


NK 


77xxx— > NK 


3 


EJ 


CA25 


ZM 


64xxx-»© 


4 


EJ 


CA31 


NP 


65xxx— > NP 


5 


EJ 


CA33 


NS 


66xxx — > NS 


6 


TP 


CA20 


PC3 \ 
PCI J 


5xxxx i 


7 


RJ 


PC 


Do PC 


10 


RJ 


WA 


WA1 > 




11 


TP 


SY2 


EJ4 




12 


TP 


VA6 


EJ13 > 


E9 


13 


TP 


EJ 


DP3 




14 


RJ 


DP2 


DP J 




15 


RJ 


SY 


SY1 


Syra. — >A 


16 


EJ 


CA30 


NH20 


(— >NH20 no i 


17 


MJ 





ZM3 


— © 


20 


TP 


GP25 


DP3 ) 

UP j 


"Args not checked" 


21 


RJ 


DP2 




22 


RJ 


FV 


FV1 


Delete Lib. 


23 


MJ 





YV 


A — >YV 


24 


MJ 
CA 



NH25 


ZM1 


-*® 





IA 


NS 





TP 


CA10 


1 


RJ 


PC 


2 


RJ 


WA 


3 


TP 


SY2 


4 


TP 


VA6 


5 


TP 


EJ15 


6 


RJ 


DP2 


7 


RJ 


SY 


10 


EJ 


CA30 


11 


MJ 





12 


TP 


GP 


13 


RJ 


DP2 


14 


RJ 


FV 


15 


MJ 





16 


MJ 







CA 


NS17 



66xxx 



PC3 \ 
PCI J 




Do pair check 


WA1 > 




EJ20 




EJ25V 


E10 


DP3 




UP J 




SY1 


Sym— >A 


NS12 


(-^lNS12 no i 


ZM3 


— © 


DP3 




UP 


"Args not checked" 


FV1 


Delete arauments 


YV 


A. — ->(62) 


ZM1 


-* © u 
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65xxx 





IA 


NP 





RJ 


WA 


1 


TP 


SY2 


2 


TP 


VA6 


3 


TP 


EK 


4 


RJ 


UP2 


5 


MJ 







CA 


NP6 




Ell 



© 



77xxx 





IA 


NK 





TP 


CA7 


1 


RJ 


PC 


2 


RJ 


WA 


3 


TP 


SY2 


4 


TP 


VA6 


5 


TP 


E120 


6 


RJ 


DP2 


7 


RJ 


SY 


10 


EJ 


CA30 


11 


MJ 





12 


TP 


GP17 


13 


RJ 


UP2 


14 


RJ 


FV 


15 


MJ 





16 


MJ 







CA 


NK17 



Do PC 



Eo 



Sym —>A 

( — >NK12 no * 



n Ss. not checked 1 * 
Delete Ss^ 

A.— >(ci 
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Fixed Equat 


ion 




TA 


NG 









TP 


TA4 


Q ] 

A J 


xxOOO-> A 


1 


QT 


CG17 




2 


EJ 


CG17 


NN 


77xxx-> NN 


3 


EJ 


CA33 


NV 


66xxx-> NV 


4 


EJ 


CA31 


NW 


65xxx-» NW 


5 


EJ 


CA25 


ZM 


64xxx->© 


6 


TP 


CA20 


PC3| 

pci; 


5xxxx 


7 


RJ 


PC 


Do PC 


10 


RJ 


WA 


WAl 




11 


TP 


SY2 


EL4 




12 


TP 


EL 


DP3 


E13 


13 


RJ 


DP2 


DP 




14 


RJ 


SY 


SY1 


Sym— >A 


15 


EJ 


CA30 


NX 


(— >NX ] 


16 


MJ 

CA 



NG17 


ZM3 


-*® 





IA 


NX 





TP 


GP 


1 


RJ 


DP2 


2 


RJ 


FV 


3 


MJ 





4 


MJ 







CA 


NX5 





IA 


NW 







RJ 


WA 


WAl 


1 


TP 


SY2 


EL17 


2 


TP 


EL12 


DP3 


3 


RJ 


DP2 


DP 


4 


MJ 





ZM 




CA 


NW5 





no 



5xxxx ( 



DP3 ) M Args not checked" 

DP J 

FY1 Delete Lib. 

YV A • ^ @ 

ZM1 ->© ^^ 



65xxx 

E14 



888 





1A 


1NV 





TP 


CA10 


1 


RJ 


PC 


2 


RJ 


WA 


3 


TP 


SY2 


4 


TP 


EM 


5 


RJ 


DP2 


6 


RJ 


SY 


j 


EJ 


CA30 


10 


MJ 





11 


TP 


GP 


12 


RJ 


UP2 


13 


RJ 


FV 


14 


MJ 





15 


MJ 







CA 


NV16 





IA 


NN 





TP 


CA7 


1 


RJ 


PC 


2 


RJ 


WA 


3 


TP 


SY2 


4 


TP 


EMU 


5 


RJ 


DP2 


6 


RJ 


SY 


7 


EJ 


CA30 




raw 


V 


11 


TP 


GP17 


12 


RJ 


DP2 


13 


RJ 


FV 


14 


MJ 





15 


MJ 







CA 


NN16 



PC3 ) 



} 



66xxx 

Do PC 
E15 




"Args not checked" 
Delete args 




77xxx 



PC3 } 

PCI J Do PC 

WAl x 

EM17 I 

DP3 [ E16 

DP J 

SYl Sym. >A 

NN11 (— >NN11 no ^ 

4UMO ^ ^C/ 

DP3 \ 

DP J "Ss. not checked" 

FV1 Delete Ss. 

YV A . — >(62) 

ZMl _>© W 
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Right, After, Not in P. Op. list 

4xxxx 





IA 


FD 





TP 


CA6 


1 


RJ 


PC 


2 


RJ 


WA 


3 


TP 


SY2 


4 


TP 


GQ21 


5 


RJ 


DP2 


6 


RJ 


SY 


7 


EJ 


CA30 


10 


MJ 





11 


TP 


GP26 


12 


RJ 


DP2 


13 


RJ 


FV 


14 


MJ 





15 


MJ 







CA 


FD16 



PC3 ) 




PCI J 


Do PC 


WA1 \ 




GQ27 I 




DP3 f 


E51 


DP J 




SY1 


Sym. — > A 


FD11 


( — >FD11 no * 


ZM3 


-*© 


DP3 \ 
DP J 


"Operands not checked" 




FV1 


Delete operands 


YV 


A. — ^@ 


ZM1 


— >(^) 



Var. - Right - After Not in P. Op. List 

Not in CB List 





IA 


NF 









RJ 


RH 


RH1 


Check Var. sym. 


1 


TP 


CA26 


TF 1 


Set to add to 


2 


TP 


SY2 


TF1 > 


CB List 


3 


TP 


CA27 


TF3 J 




4 


TP 


CA6 


PC3 


Set PC 


5 


TP 


VA16 


Q 


Fixed eq. — >NZ 


6 


QJ 


NZ 


NF7 


No ^ 


7 


TP 


VA5 


A 


Ss. mode — >FJ 


10 


ZJ 


FJ 


NF11 


No if 


11 


TP 


SY10 


Q 


IJKUJ — > FK 


12 


QJ 


FK 


NF13 


No t 


13 


RJ 


TK 


TK1 


Increase CW 


14 


AT 


CA31 


EW2 


65xxx CW — >list 


15 


RJ 


EW 


EW1 




16 


TP 


EW2 


TF2 


— >CB List 


17 


RJ 


TE 


TE1 




20 


MJ 
CA 



NF21 


ZM 


^© 
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Not SS mode - TJKLM 






RJ 


WA 


WA1 n 




1 


TP 


SY2 


EK251 




2 


TP 


EK20 


DP3 [ 


E12 


3 


RJ 


DP2 


DP J 




4 


RJ 


TK 


TK1 


Increase CW counter 


5 


AT 


CA25 


EW2 1 


64xxx CW— ^.list 


6 


IP 


A 


TF2 > 




7 


RJ 


EW 


EW1 J 




10 


RJ 


TE 


TE1 


CW— >CB list 


11 


MJ 
CA 



FK12 


ZM 


— © 









Ss. 


Mode 




IA 


FJ 









TP 


SY10 


Q 1 
FJ2 J 


IJKUW 


1 


QJ 


FK4 


No * 


2 


RJ 


WA 


WA1 \ 




3 


TP 


SY2 


EK6 I 


Ell 


4 


TP 


EK 


DP3 | 




5 


RJ 


DP2 


DP * 




6 


MJ 





NF13 




7 


TP 


VA6 


EK16 




10 


MJ 
CA 



FJ11 


FJ2 





FK4 









Fixed Equat: 


Lon 




IA 


NZ 









TP 


SY10 


Q ) 
NZ2 J 


IJKDJ 


1 


QJ 


FK4 


No ♦ 


2 


RJ 


WA 


WA1 ^ 




3 


TP 


SY2 


EL171 


E14 


4 


TP 


EL12 


DP3 f 




5 


RJ 


DP2 


DP J 




6 


MJ 
CA 




NZ7 


NF13 





FK4 



891 



A 





IA 


YV 





TP 


CG16 


1 


RJ 


EW 


2 


TP 


VA7 


3 


ZJ 


YV4 


4 


TP 


VA37 


5 


QJ 


YV6 


6 


RJ 


TE 


7 


TP 


YA14 


10 


EJ 


CA3 


11 


RJ 


WA 


12 


TP 


GK 


13 


RJ 


DP2 


14 


TP 


VA1 


15 


EJ 


CA3 


16 


RJ 


WA 


17 


TP 


GK10 


20 


RJ 


DP2 


21 


TP 


VA2 


22 


EJ 


CA3 


23 


RJ 


WA 


24 


TP 


GL 


25 


RJ 


UP2 


26 


TP 


CA22 


27 


RJ 


PC 


30 


TP 


EW3 


31 


QT 


CA2 


32 


ST 


CKU 


33 


AT 


CA3 


34 


RJ 


SS 


35 


MJ 







CA 


YY36 



EW2 ) 
EW1 | 



C.W >list 

Ftn. I no — >YV7 

Not in CB List i in 
Add to list 



>YV7 



# = «s = 1 

E44 



->YV14 no 



i 



0n( level zero — >YV2l 
No | 



E45 

On I level zero 
No | 

E46 



•YV26 



— >PC 
Word count 



• WL 



Send S.O. to tape 
Exit — > Control 
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Equation Translation 






Error Prints 




sgion 




Error Numbers 


EF 




El t E2 


EG 




E3 f E4 


EH 




E5 t E6 


EI 




E7 t E8 


EJ 




E9 ( E10 


EK 




C*1 1 PiO 


EL 




E13,E14 


EM 




E15 f E16 


EN 




El7 t El8 


EP 




E19 t E20 


ER 




E21.E22 


EX 




E23.E24 


GA 




E25.E26 


GB 




E27 f E28 


GC 




E29 t E30 


GD 




E3l,E32 


GE 




E33 f E34 


GF 




E35.E36 


GH 




E37 f E38 


GI 




E39.E40 


GJ 




E41,E42 ( E43 


GK 




E44.E45 


GL 




E46.E47 


GM 




E48.E49 


GP 




Suffixes of 
error prints 


GQ 




E50,E51 


FQ 




E52 


GV 




E53 t E54,E55 


GY 




E56 t fi.57 


GZ 




E58 
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Error Prints for Equation Translation 



El 



E2 





IA 


EF 

















40 


EF1 


15 












1 


31 


67502 


66634 


F 


D 


N 


C 


T I 


2 


51 


50016 


57347 





N 


A 


S 


Y M 


3 


25 


51462 


10177 


B 





L 


t 


A 77 


4 











Sym. 








5 


01 


21011 


76567 


A 


» 


A 


( 


S D 


6 


25 


01525 


45132 


B 


A 


P 


R 


G 


7 


54 


24470 


12767 


R 


A 


M 


A 


D D 


10 


47 


47734 


30134 


M 


M 


Y 


) 


A I 
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Pseudo Operation Heading Translator 

This routine provides the necessary input and output ref- 
erences required by the sentences of the sub program, and also furnishes 
to the Pseuio Operation Heading generator and to the Exit sentence the 
necessary linkage so that control is transferred properly during the Object 
Program. 

The input and output references are set by building the DP List con- 
taining the dummy variables and their associated dummy call words. These 
dummy variables as used by the sentences of the sub program are assigned call 
words as follows: 

76x~ subscripted variable (x = number of subscripts). 

63 single valued fixed or floating variable. 

61— — functions. 

These call words represent the addresses from which input values or 
the locations of output values are to be obtained during the Object Program. 
The addresses represented by these call words lie in the Sub Program Input 
List, a part of the Termination Buffer. 

The 22 — type call word of the next sentence of the sub program will 
be used by the Heading Sentence generator to form the jump instruction which, 
during running, transfers control into the sub program after being referenc- 
ed by the COMPUTE sentence. 

A check is also made by this routine to insure that any previous sub 
programs have EXIT sentences. 
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List of Error Print-Outs 

Program 

Entrance Print-Out "Sentence (SDB) W precedes all of these, 

ZAl No final closing parenthesis. 

ZB1 J The number of open parentheses is not equal to the number 

and ? 
ZGl J of close parentheses. 

ZCl Machine or internal error. 

ZF1 Failed to exit. Probably no space period symbol. 

ZHl Parenthetical expression not allowed for the functional 

variable in the Pseudo Op Heading statement. 
ZIl Fixed point operands do not begin with legal characters 

i.e. (I, J ( K, L or M) in the Pseudo Op Heading. 
ZJ1 Floating point operands in the Pseudo Op Heading begin 

with illegal characters, i.e. (I, J, K f L or M). 
ZKl No closing parenthesis or too many subscripts. 

ZL1 Duplicated symbols are not allowed in Pseudo Op Heading. 

ZMl Erroneous subscript found. 

ZN1 At least one subscript missing on subscripted variable. 

ZOl The rest of this sentence was not checked. 

XN32 No exit in preceding Pseudo Operation. 

XN3 Constants illegal in Pseudo Op Heading. 



Regions for Pseudo Operation Heading Translator 



RE 


PU4400 


RE 


PV4471 


RE 


PX4630 


RE 


PY4667 


RE 


PZ4714 


RE 


PW4741 


RE 


PE4747 


RE 


DD4761 


RE 


JL5006 


RE 


ZA5023 


RE 


ZB5036 


RE 


ZC5062 


RE 


ZF5075 


RE 


ZG5113 


RE 


ZH5122 


RE 


ZI5153 


RE 


ZJ5204 


RE 


ZK5234 


RE 


ZL5252 


RE 


ZM5273 


RE 


ZN5306 


RE 


Z05327 


RE 


XN5355 



There is one conflict between the string-out subroutine regions 
and the above regions (each uses region ZO), However, if the above re- 
gions are read in first and the string-out subroutine regions second, 
the Pseudo-Op Heading tape will assemble properly. 
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Master Control Region for Pseudo-OP Heading Translator. 



© 

© 
© 



© 




1 
2 
3 

4 
5 
6 
7 
10 
11 
12 
13 
14 
15 
16 
17 
20 
21 
22 
23 

24 
25 
26 
27 
30 
31 
32 
33 

34 
35 
36 
37 
40 
41 
42 
43 
44 
45 
46 
47 
50 
51 
52 
53 
54 



IA 
MJ 
RP 
TP 
RJ 

TP 
TV 
QT 
RJ 
EJ 
MJ 
RA 
MJ 
EJ 
EJ 
MJ 
TP 
EJ 
MJ 
RS 
ZJ 

MJ 
ZJ 
TP 
TJ 
MJ 
TP 
QT 
RA 

TP 

EJ 

EJ 

EJ 

EJ 

MJ 

IJ 

MJ 







17 





21 

01 

43 



PD 



10132 

PD44 

JL 

TA4 

TA4 

PD45 

SY 

PD47 



PD50 



PU52 

PD53 



SZ2 

PD54 



PU50 

ZB1 



ZC1 

PD55 

P063 



TA5 

PD56 

PD31 

PD57 

PD51 

PU60 

PD61 

P062 



PU46 









77777 





77777 

22777 

77777 



PW 

XN171 
DP J 
J LI 

Q 

TS4 

PD46 

SY1 

PU12 

XN 

PU51 

PU7 

PD7 

PU17 

PD26 

A ] 
PU22 J 

ZAl 

PD51 

PU 

PD65 
PD 

A I 
PD65 J 

ZCl 

Q 

PU57 
PD70 



) 



A 

PZl 

PY1 

PXl 

PV1 

ZCl 

PU7 

ZF1 



77 



77777 



1 

77777 

77777 

77777 



Zeroize 

Region DP (90 slots) 
Reference routine for building Pseudo 
OP 2nd lines. 
(TA4) = no. of operands 

Send 40 CW to TS4 

Mask off no. of operands and set CTR2 



->Paren. Ctr. 



Test "(" 

Jump to test ")" 

Parentheses Counter + 1- 

Test V* 
Test *&. H 



Test previous symbol for M ) M . 
Error? No close parenthesis 
Parenthesis Counter - 1 — >Paren. Ctr. 
A^ ; Indicates opening and closing 
parens not equal. 



Test CTR1 (assigning CW 

sequence numbers) ^ (77) ft 

Error! b 

Mask and save format digit 

1, 2, 3, or 4 

Modifies address for picking up next 

operand. 

Format digit 1, 2, 3 or 4 — >A 

Test for f l* 

Test for , 2» 

Test for *3' (Function) 

Test for *4* (subscripted variable) 

Error* Format digit not l t 2, 3 or 4. 

Initial no. operands -1 — >PD46 

Error.' Failed to exit. 

Mask 

( 
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Master Control Region for Pseudo-OP Heading Translator (continued) 



55 













56 








7 


Mask 


57 













60 








2 




61 








3 




62 








4 




63 








100 




64 


77 


77777 


77776 


-1 


65 


TP 


SY7 


Q ) 
XN3 J 


Test first character for letter. 


66 


QJ 


PU31 




67 


MJ 





PU25 




70 



CA 


1 
PU71 
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Sub Region for Subscripted Variable 



© 



© 



© 





IA 


PV 









MJ 





PD42 n 


Exit 


1 


TP 


PD31 


A 




2 


RS 


A 


PV110 1 


Mask 'op* portion of 


3 


TD 


A 


PV4 


> format word and save 


4 


TP 


[0] 


Q 


in Temp. 2 = PV112 


5 


QT 


PV111 


PV112, 




6 


RA 


PU64 


PVH3s 


CTR -f 1 — >CTR) 


7 


RA 


PV10 


PD64 


(set up proper address) 


10 


TP 


SY2 


[DP] 


> Insert XS-3 symbol in DP List 


11 


TP 


PV114 


PV10 


Reset PV10) 


12 


RJ 


DO 


DD1 J 


(Test duplication of symbol) 


13 


TP 


PV112 


A 


Previously saved t op* — >A 


14 


LT 


14 


A 


Shift op to v of L 
Ar + 76 - 00— ^AJ 1 
76 f N*00 + CTR1— ^Temp. 5 = PV116 


15 


RA 


A 


PV115 


16 


AT 


PD55 


PV116 


17 


TP 


PV112 


A 


Previously saved 'op* — >A 


20 


LT 


6 


PV117 


Shift 'op* to A 0-5 


21 


MJ 





PV130 


Jump out for correction 


22 


AT 


PD55 


PD55 ' 


Setting up index which 


23 


TP 


PV120 


PV121 


> determines when to begin exit 


24 


RA 


PV121 


PV117 , 




25 


RA 


PD64 


PV113 * 


) 


26 


RA 


PV27 


PD64 


I Insert '76 • N-~ CW in DP 


27 


TP 


PV116 


[DP] 




30 


TP 


PV122 


PV27 ^ 




31 


RJ 


SY 


SY1 




32 


EJ 


PV123 


PV31 


Test f 


33 


EJ 


PV124 


PV35 


Test •)• 


34 


MJ 





PV102 


Jump to co*fection(T) 


35 


RA 


PV125 


PV113 


Parenthesis counter +1 — >Paren. < 


36 


MJ 





PV31 




37 


RA 


PD64 


PV113> 


i 


40 


RA 


PV41 


PU64 




41 


TP 


SY2 


[DP] 


> Insert XS-3 symbol in DP list 


42 


TP 


PV114 


PV41 




43 


RJ 


DD 


DD1 > 




44 


TP 


PV126 


A 


'63000 ' — >A 


45 


RA 


A 


PU55 


•63000' 4- CTR1 — >A 


46 


TP 


A 


PV116 


Save GW in Temp. 5 = PV116 


47 


RA 


PD55 


PV113 


CTR1 + 1— »CTR1 


50 


RA 


PD64 


PV113 


CTR + 1— ->CTR 


51 


RA 


PV52 


PD64 




52 


TP 


PV116 


[DP] 


Send GW to DP List 


53 


TP 


PV122 


PV52 




54 


RJ 


SY 


SY1 




55 


EJ 


PV123 


PV54 


Test \ f 


56 


EJ 


PV127 


PV104 


Jump to coYrectionGO 


57 


MJ 





PV133 


Jump to coTyection^h 


60 


RA 


PV61 


PD64 


^^ 
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Sub Region for Subscripted Variable (continued) 



® 



© 



61 
62 
63 
64 
65 
66 
67 
70 
71 
72 
73 
74 
75 
76 
77 
100 

101 
102 
103 
104 
105 
106 
107 
110 
111 
112 
113 
114 
115 
116 
117 
120 
121 
122 
123 
124 
125 
126 
127 
130 
131 
132 
133 
134 
135 
136 



TP 
TP 
RJ 
TP 
AT 
RA 
RA 
RA 
TP 
TP 
IJ 
RJ 
EJ 
MJ 
RS 
ZJ 



TP 

QJ 

TP 

TJ 

MJ 

01 



77 





TP 







77 



TP 

21 

17 





43 

TP 

RA 

MJ 

TP 

QJ 
RA 
MJ 
CA 



SY2 

PV114 

DU 

PV126 

PU55 

PD55 

PD64 

PV71 

PV116 

PV122 

PV121 

SY 

PV127 



PV125 

ZG1 



SY10 

PV37 

PV107 

PV112 





1 







SY2 





o 

77777 



PV116 

77777 

77777 





77777 

PV117 

A 



SY10 

PV135 

PD64 



PV137 



CDP] 

PV61 

DD1 

A 

PV116 

PV113 

PV113 

PD64 ) 

[DP] 

PV71 

PY54 

SY1 

PV77 

ZK1 

PV113 

PV 






Insert XS-3 symbol in DP list 

•63000* — >A 
f 63000* + CTR1 — >A 
CTR1+1— >CTR1 
CTR+1 — >CTR 

Send CW to DP List 



Test »)» 

Error. No closing parenthesis 

Parenthesis counter -1 — >Paren. Ctr. 

Test for same no. of open and close 

parens. 

(T)Test for subscript 

(2) If op > 01 then wrong 
Exit was used and at least one 

subscript will be missing 
from DP List 

Mask 
Temp. 2 

Presetter for XS-3— >DP 

CW 

Temp. 5 

Tomn 3 

-2 

Index 

Presetter for CW — >DP 

( 

Parenthesis Counter 

CW 

) 

Setting up an index for 
the no. of passes thru last loop 
Test for subscript 

I, J, K, L or M 
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Sub Region for Filing Functions in DP 



13 





IA 


PX 









MJ 





PU42 




1 


RA 


PD64 


PX27 


Increase CTR by 1 


2 


RA 


PX3 


PU641 




3 


TP 


SY2 


[DP] \ 


Send XS-3 symbol DP 


4 


TP 


PX32 


PX3 j 


Preset PX3 


5 


RJ 


DD 


DU1 




6 


RA 


PD64 


PX27 


Increase CTR by 1 


7 


TP 


PX36 


A 


C W-^A 


10 


AT 


PU55 


PX35 


C W to Temp. (6) after being sequenced 


11 


RA 


PX12 


PD641 




12 


TP 


PX35 


[DP] } 


Temp. (6) —> DP 


13 


TP 


PX33 


PX12J 


Preset PX12 


14 


RA 


PD55 


PD60 


CTR1+2— >CTB1 — > 


15 


TP 


P031 


A \ 




16 


RS 


A 


PX30 > 


Set up address to obtain 


17 


TO 


A 


PX22 J 


correct format digit 


20 


RA 


PD64 


PX27 


CTR+1— ->CTR 


21 


RA 


PX22 


PD64 ] 




22 


TP 


[30000] 


[DP] I 


Send format digit (l t 2 t 3 or 4) to DP 
List 


23 


TP 


PX34 


PX22 J 


Preset PX22 


24 


RJ 


SY 


SY1 




25 


EJ 


PX31 


ZH1 


Test *(* 


26 


MJ 





PX 




27 








1 




30 





1 







31 


17 


77777 


77777 


( 


32 


TP 


SY2 


DP ] 


Preset PX3 


33 


TP 


PX35 


DP > 


Preset PX12 


34 


TP 


30000 


DP J 


Preset PX22 


35 











Temp. (6) 


36 



CA 



PX37 


61000 
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Sub Region for FIXED POINT OPERAND 

\ PY 
„ „J PD42 
@ 1 TP SYIO Q 1 Testing 





IA 


PY 







MJ 





fu42 


1 


TP 


SYIO 


Q 


2 


QJ 


PY3 


ZI1 . 


3 


RA 


PD64 


PY22 


4 


RA 


PY5 


PU64 


5 


TP 


SY2 


[DP] 


6 


TP 


PY23 


PY5 


7 


RJ 


DO 


DD1 


10 


TD 


PY21 


A 

n. 


11 


AT 


P055 


PY20 


12 


RA 


PD55 


PY22 


13 


RA 


PU64 


PY22 


14 


RA 


PY15 


PD64 


15 


TP 


PY20 


LDP] 


16 


TP 


PY24 


PY15 


17 


MJ 





PY 


20 











21 








63000 


22 








2 


23 


TP 


SY2 


DP 


24 


TP 


PY20 


DP 




CA 


PY25 





for I f J, K, L or M 
CTR+1 —> CTR 

Insert XS-3 symbol in DP 
Preset PY5 

CW — >A 

Temp. (7) CW plus sequence no. 

CTR1+1— >CTR1 

CTR+1 — > CTR 

Insert 63—- type call word in DP List 
Preset PY15 

Temp. ® 

CW for FIXED POINT CONSTANT 

Presetter PY5 
Presetter PY15 
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Sub Region for FLOATING POINT OPERAND 





TA 


PZ 







MJ 





PD42 


1 


TP 


SY10 


Q ' 


2 


QJ 


ZJ1 


PZ3 . 


3 


RA 


PD64 


PZ22 


4 


RA 


PZ5 


PU64 


5 


TP 


SY2 


[DP] 


6 


TP 


PZ23 


PZ5 


7 


RJ 


DO 


DD1 


10 


TP 


PZ21 


A 


11 


AT 


PD55 


PZ20 


12 


RA 


PD55 


PZ22 


13 


RA 


PU64 


PZ22 


14 


RA 


PZ15 


PD64 


15 


TP 


PZ20 


[DP] 


16 


TP 


PZ24 


PZ15 


17 


MJ 





PZ 


20 











21 








63000 


22 








1 


23 


TP 


SY2 


DP 


24 


TP 


PZ20 


DP 




CA 


PZ25 





Testing 

for T t J, K, L or M 

CTR+1 — > CTR 

Insert XS-3 symbol 
Preset PZ5 



Temp. (§) - CW plus sequence no. 
CTR1+1 — >CTR1 
CTR+1 — >CTR 

Insert 63— type call word in DP List 
Preset PZ15 



Temp.® 

CW for FLOATING POINT 





IA 


PW 







TP 


PW4 


PD46 


1 


TP 


PW4 


PD55 


2 


TP 


PW5 


PD64 


3 


MJ 





PE1 


4 











5 


77 


77777 


77776 




CA 


PW6 





CTR21 

CTR1 > Reset counters 

CTR J 
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© 





IA 


PE 




o 


MJ 


o 


CT 


1 


TP 


TA4 


WL3 


2 


RA 


PE10 


VB4 


3 


TP 


A 


WL4 


4 


RA 


WL 


PE11 


5 


RJ 


SS 


SSI 


6 


RS 


VB4 


PEll 


7 


MJ 





PE 


10 








22000 


11 








1 




CA 


PE12 





Pseudo Op CW — -=* WL3 

22000 + VB4 = CW of 1st sentence 

after heading 

CW — >WL4 

Word counter + 1 — >Word ctr. 

Send string out to tape 





TA 


ZO 











MJ 





PD 






1 


MJ 





Z02 






2 


TP 


Z025 


DP3 






3 


RJ 


DP2 


DP 






4 


MJ 





ZO 






5 


01 


01010 


10101 ^ 






6 


01 


01010 


10101 






7 


01 


01010 


10101 






10 


01 


01010 


10101 






11 


01 


01010 


10101 


^ Causes carriage return 


12 


01 


01010 


10101 


before print out 


13 


01 


01010 


10101 






14 


01 


mmn 


imm 

JL \S J.V J. 






15 


01 


01010 


10101 J 






16 


66 


33300 


15430 


T 


H E A R E 


17 


65 


66015 


13101 


S 


T A F A 


20 


66 


33346 


50165 


T 


H I S A S 


21 


30 


50663 


05026 


E 


N T E N C 


22 


30 


01712 


46501 


E 


A W A S A 


23 


50 


51660 


12633 


N 


T A C H 


24 


30 


26453 


02722 


E 


C K E D . 


25 


40 
CA 


Z05 
Z026 


20 







937 



Test Duplication of Symbol 





IA 


DO 









MJ 





[30000] 




1 


RA 


DD20 


PD64 


Index + Ctr. = CTR. • 


2 


TP 


[DP] 


A 




3 


EJ 


SY2 


DD5 




4 


MJ 





DD15 




5 


TP 


DD24 


A 


0— ^A 


6 


TJ 


DD20 


DD12 


Index > indicati 


7 


TP 


DD23 


D02 | 




10 


TP 


DD22 


DD20> 


Exit routine 


11 


MJ 





DO J 




12 


TP 


DD23 


DU2 } 




13 


TP 


DD22 


DD20> 


Error routine 


14 


MJ 





ZL1 J 




15 


RA 


DD2 


DD21 


Modifty DP address 


16 


U 


DD20 


DD2 




17 


MJ 





DD7 


Jump to Exit routine 


20 


77 


77777 


77776 


Index 


21 





1 







22 


77 


77777 


77776 


Presetter for Index 


23 


TP 


DP 


A 




24 



CA 



DD25 








Routine to Make Dp List JN of 2nd Lines of Pseudo Op's 





IA 


JL 









MJ 





30000 


Exit 


1 


TP 


JL12 


Q 


Mask to Q 


2 


QT 


JN 


A 


JN = 20000 initially 


3 


LQ 


A 


25 


Shift to V position number of 
pseudo ops. 


4 


AT 


JL14 


A ) 
JL7 J 


Set-up to get proper loading 


5 


TV 


A 


position for next call word in list 


6 


SP 


VB4 


[30000] ) 


Securing and loading call 


7 


AT 


JL13 


word in list. 


10 


RA 


JN 


PD70 


Increasing list length count 


11 


MJ 





JL 


Exit 


12 





07777 





Mask 


13 





22000 





Base call word of pseudo ops 


14 








JN1 


Base address of 1st call word 




CA 


JL15 




in list. 
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Error Print-Outs 





IA 


ZA 







MJ 





PD 


1 


RJ 


WA 


WAl 


2 


TP 


ZA12 


DP3 


3 


RJ 


DP2 


DP 


4 


MJ 





ZA 


5 


50 


51013 


13450 


6 


24 


46012 


64651 


•7 
f 


65 


34503 


20152 


10 


24 


54305 


06633 


11 


30 


65346 


52277 


12 


40 


ZA5 


5 




CA 


ZA13 





Prints: SENTENCE (SDB) 

Gives print-out indicated 
by parameter. 

N A F IN 
A L A C L 

ST vt r* An 
x is \j o r 

A R E N T H 

E S I S . A 





IA 


ZB 







MJ 





PD 


1 


RJ 


WA 


WAl 


2 


TP 


ZB23 


DP3 


3 


RJ 


DP2 


DP 


4 


MJ 





ZB 


5 


66 


33300 


15067 


6 


47 


25305 


40151 


7 


31 


01515 


23050 


10 


01 


52245 


43050 


11 


66 


33306 


53065 


12 


01 


34650 


15051 


13 


66 


01305 


36Y24 


14 


46 


01665 


10166 


15 


33 


30010 


10101 


16 


01 


01506 


74725 


17 


30 


54015 


13101 


20 


26 


46516 


53001 


21 


52 


24543 


05066 


22 


33 


OvODO 


06522 


23 


40 


ZB5 


16 




CA 


ZB24 





T 


H 


E 


A 


N 


D 


M 


B 


E 


R 


A 





F 


A 





P 


E 


N 


A 


P 


A 


R 


E 


N 


T 


H 


E 


S 


E 


S 


A 


I 


S 


A 


N 





X 


A 


E 


Q 


D 


A 


L 


A 


T 





A 


T 


H 


E 


A 


A 


A 


A 


A 


A 


N 


D 


M 


B 


E 


R 


A 





F 


A 


C 


L 





S 


E 


A 


P 


A 


R 


E 


N 


T 


H 


E 


S 


E 


S 


• 
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IA 


ZC 







MJ 





PD 


1 


RJ 


WA 


WA1 


2 


TP 


ZC12 


DP3 


3 


RJ 


DP2 


DP 


4 


MJ 





ZC 


5 


47 


24263 


33450 


6 


30 


01515 


40134 


7 


50 


66305 


45024 


10 


46 


01305 


45451 


11 


54 


22777 


77777 


12 


40 


ZC5 


5 




CA 


ZC13 







IA 


ZF 







MJ 





PD 


1 


RJ 


WA 


WA1 


2 


TP 


ZF15 


DP3 


3 


RJ 


DP2 


DP 


4 


MJ 





ZF 


5 


31 


24344 


63027 


6 


01 


66510 


13072 


7 


34 


66220 


15254 


10 


51 


25242 


54673 


11 


01 


50510 


16552 


12 


24 


26300 


15230 


13 


54 


34512 


60165 


14 


73 


47255 


14622 


15 


40 


ZF5 


10 




CA 


ZF16 





M 


A 


C 


H I 


N 


E 


A 





R A 


I 


N 


T 


E 


R N 


A 


L 


A 


E 


R R 





R 


• 


77 


77 77 


77 



F 


A 


I 


L 


E 


D 


A 


T 





A 


E 


X 


I 


T 


• 


A 


P 


R 





B 


A 


B 


L 


Y 


A 


N 





A 


S 


P 


A 


C 


E 


A 


P 


E 


R 


I 





D 


A 


S 


Y 


M 


B 





L 


• 



940 





IA 


ZG 







MJ 





Z0L 


1 


RJ 


WA 


WA1 


2 


TP 


ZB23 


DPS 


3 


RJ 


DP2 


UP 


4 


TP 


ZG6 


PV102 


5 


MJ 





ZG 


6 













CA 


ZG7 







IA 


ZH 







MJ 





ZOL 


1 


RJ 


WA 


WA1 


2 


TP 


ZH30 


DP3 


3 


RJ 


DP2 


DP 


4 


MJ 





ZH 


5 


52 


24543 


05066 


6 


33 


30663 


42624 


7 


46 


01307 


25254 


10 


30 


65653 


45150 


11 


65 


01505 


16601 


12 


24 


46465 


17130 


13 


27 


01315 


15401 


1*4 


66 


33300 


10101 


15 


01 


01010 


10101 


16 


01 


01316 


75026 


17 


66 


34515 


02446 


20 


01 


70245 


43424 


21 


25 


46300 


13450 


22 


01 


66333 


00152 


23 


65 


30672 


75101 


24 


51 


52013 


33024 


25 


27 


34503 


20165 


26 


66 


24663 


04730 


27 


50 


66227 


77777 


30 


40 


ZH5 


23 




CA 


ZH31 





P 


A 


R 


E 


N 


T 


H 


E 


T 


I 


C 


A 


L 


A 


E 


X 


P 


R 


E 


S 


S 


I 





N 


S 


A 


N 





T 


A 


A 


L 


L 





W 


E 


D 


A 


F 





R 


A 


T 


H 


E 


A 


A 


A 


A 


A 


A 


A 


A 


A 


A 


A 


F 


D 


N 


C 


T 


I 





N 


A 


L 


A 


V 


A 


R 


I 


A 


B 


L 


E 


A 


I 


N 


A 


T 


H 


E 


A 


P 


S 


E 


D 


D 





A 





P 


A 


H 


E 


A 


D 


I 


N 


G 


A 


S 


T 


A 


T 


E 


M 


E 


N 


T 


• 


77 77 77 



941 





IA 


ZI 







MJ 





PD42 


1 


RJ 


WA 


WA1 


2 


TP 


ZI30 


DP3 


3 


RJ 


DP2 


UP 


4 


MJ 





ZI 


5 


31 


34723 


02701 


6 


52 


51345 


06601 


7 


51 


52305 


42450 


10 


27 


65012 


75101 


11 


50 


51660 


12530 


12 


32 


34500 


17134 


13 


66 


33014 


63032 


14 


24 


46010 


10101 


15 


01 


01010 


10101 


16 


01 


01263 


32454 


17 


24 


26663 


05465 


20 


01 


34223 


02201 


21 


17 


34214 


42145 


22 


21 


46015 


15401 


23 


47 


43013 


45001 


24 


66 


33300 


15265 


25 


30 


67275 


10151 


26 


52 


01333 


02427 


27 


34 


50322 


27777 


30 


40 


ZI5 


23 




CA 


ZI31 





F 


I 


X 


E 


D 


A 


P 





I 


N 


T 


A 





P 


£ 


R 


A 


N 


D 


S 


A 


D 





A 


N 





T 


A 


B 


E 


G 


I 


N 


A 


W 


I 


T 


H 


A 


L 


E 


G 


A 


L 


A 


A 


A 


A 


A 


A 


A 


A 


A 


A 


A 


A 


C 


H 


A 


R 


A 


C 


T 


E 


R 


S 


A 


I 


• 


E 


• 


A 


( 


I 


f 


J 


t 


K 


t 


L 


A 





R 


A 


M 


) 


A 


I 


N 


A 


T 


H 


E 


A 


P 


S 


E 


U 


D 





A 





P 


A 


H 


E 


A 


D 


I 


N 


G 


• 


77 


77 



942 





IA 


ZJ 



















MJ 





PD42 














1 


RJ 


WA 


WA1 














2 


TP 


ZJ37 


CP3 














3 


RJ 


UP2 


DP 














4 


MJ 





ZJ 














5 


31 


46512 


46634 


F 


L 





A 


T 


I 


6 


50 


32015 


25134 


N 


G 


A 


P 





I 


7 


50 


66015 


15230 


N 


T 


A 





P 


E 


10 


54 


24502 


76501 


R 


A 


N 


D 


S 


A 


11 


34 


50016 


63330 


I 


N 


A 


T 


H 


E 


12 


01 


52653 


06727 


A 


P 


S 


E 


D 


D 


13 


51 


02515 


20133 





- 





P 


A 


H 


14 


30 


24273 


45032 


E 


A 


D 


I 


N 


G 


15 


01 


01010 


10101 


A 


A 


A 


A 


A 


A 


16 


01 


01253 


03234 


A 


A 


B 


E 


G 


I 


17 


54 


01713 


46633 


N 


A 


W 


I 


T 


H 


20 


01 


34464 


63032 


A 


I 


L 


L 


E 


G 


21 


24 


46012 


63324 


A 


L 


A 


C 


H 


A 


22 


54 


24266 


63054 


R 


A 


C 


T 


E 


R 


23 


65 


01342 


23022 


S 


A 


I 


• 


E 


• 


24 


01 


17342 


14421 


A 


( 


I 


t 


J 


f 


25 


45 


21460 


15154 


K 


t 


L 


A 





R 


26 


21 


47432 


27777 


t 


M 


) 


• 


77 77 


27 


40 
CA 


ZJ5 
ZJ30 


22 















943 





IA 


ZK 







MJ 





ZOl 


I 


RJ 


WA 


WAl 


2 


TP 


ZK15 


DP3 


3 


RJ 


DP2 


DP 


4 


MJ 





ZK 


5 


50 


51012 


64651 


6 


65 


34503 


20152 


7 


24 


54305 


06633 


10 


30 


65346 


50151 


11 


54 


01665 


15101 


12 


47 


24507 


30165 


13 


67 


25652 


65434 


14 


52 


66652 


27777 


15 


40 


ZK5 


10 




CA 


ZK16 







IA 


ZL 







MJ 





ZOl 


1 


RJ 


WA 


WAl 


2 


TP 


ZL20 


DP3 


3 


RJ 


DP2 


DP 


4 


MJ 





ZL 


5 


27 


67524 


63426 


6 


24 


66302 


70165 


7 


73 


47255 


14665 


10 


01 


24543 


00150 


11 


51 


66012 


44646 


12 


51 


71302 


70134 


13 


50 


01526 


53067 


14 


27 


51015 


15201 


15 


01 


01010 


10101 


16 


01 


01333 


02427 


17 


34 


50322 


27777 


20 


40 


ZL5 


13 




CA 


ZL21 





N 





A 


c 


L 


S 


I 


N 


G 


A P 


A 


R 


E 


N 


T H 


E 


S 


I 


S 


A 


R 


A 


T 





A 


M 


A 


N 


Y 


A S 


D 


B 


S 


C 


R I 


P 


T 


S 


• 


77 77 



D 


D 


P 


L 


I C 


A 


T 


E 


D 


A S 


Y 


M 


B 





L S 


A 


A 


R 


E 


A N 





T 




A 


L L 





W 


E 


D 


A I 


N 


A 


P 


S 


E D 


D 





A 





P A 


A 


A 


A 


A 


A A 


A 


A 


H 


E 


A D 


I 


N 


G 


• 


77 77 



944 





IA 


ZM 







MJ 





zai 


i 


RJ 


WA 


WA1 


2 


TP 


ZM12 


DPS 


3 


RJ 


DP2 


DP 


4 


MJ 





ZM 


5 


30 


54545 


15030 


6 


51 


67650 


16567 


7 


25 


65265 


43452 


10 


66 


01315 


16750 


nr * 




22777 


7i (77 


12 


40 


ZM5 


5 




CA 


ZM13 







IA 


ZN 







MJ 





Z01 


1 


RJ 


WA 


WA1 


2 


TP 


ZN20 


DP3 


3 


RJ 


DP2 


DP 


4 


MJ 





ZN 


5 


24 


66014 


63024 


6 


65 


66015 


15030 


7 


01 


65672 


56526 


10 


54 


34526 


60147 


11 


34 


65653 


45032 


12 


01 


51500 


16567 


13 


25 


65265 


43452 


14 


66 


30270 


10101 


15 


01 


01010 


10101 


16 


01 


01702 


45434 


17 


24 


25463 


02277 


20 


40 


ZN5 


13 




CA 


ZN21 





E 


R 


R 





N 


E 





D 


S 


A 


S 


D 


B 


S 


C 


R 


I 


P 


T 


A 


F 





D 


N 


D 


• 


ll 


// 


// 


(l 



A 


T 


A 


L 


E A 


S 


T 


A 





N E 


A 


S 


D 


B 


S C 


R 


I 


P 


T 


A M 


I 


S 


S 


I 


N G 


A 





N 


A 


S D 


B 


S 


C 


R 


I P 


T 


E 


D 


A 


A A 


A 


A 


A 


A 


A A 


A 


A 


V 


A 


R I 


A 


B 


L 


E 


. 77 



945 



@> 



© 



© 





IA 


XN 







EJ 


PU54 


PU7 


1 


MJ 





PD14 


2 


MJ 





Z01 


3 


RJ 


WA 


WA1 


4 


TP 


XN7 


DP3 


5 


RJ 


DP2 


DP 


6 


MJ 





XN2 


7 


40 


XN10 


7 


10 


26 


51506 


56624 


11 


50 


66650 


13446 


12 


46 


30322 


44601 


13 


34 


50015 


26530 


14 


67 


27510 


15152 


15 


01 


33302 


42734 


16 


50 


32227 


77777 


17 


TP 


TS4 


Q 


20 


QJ 


XN21 


XN25 


21 


TP 


VD1 


Q 


22 


QJ 


XN23 


XN32 


23 


TP 


XN30 


VD1 


24 


MJ 





PD3 


25 


RA 


TS4 


XN27 


26 


MJ 





PD3 


27 


40 








30 











31 


MJ 





PD3 


32 


RJ 


WA 


WA1 


33 


TP 


XN45 


DP3 


34 


RJ 


DP2 


DP 


35 


MJ 





XN31 


36 


50 


51013 


07234 


37 


66 


01345 


00152 


40 


54 


30263 


02734 


41 


50 


32015 


26530 


42 


67 


27510 


15152 


43 


30 


54246 


63451 


44 


50 


22777 


77777 


45 


40 


75*43 


7 




CA 


XN46 





Test closing parenthesis 



Print region 




CONST 
N T S A I 
LEGAL 
I N A P S 
D D A 
AHEAD 
N G . 


A 
L 
A 
E 
P 
I 



Test for heading hit 
Test for Exit Bit 
Zeroize VD1 
Set heading bit 



c»r 

N 


ror 



rr 
A 


int 
E 


re 
X 


I 


T 


A 


I 


N 


A 


P 


R 


E 


C 


E 


D 


I 


N 


G 


A 


P 


S 


E 


D 


D 





A 





P 


E 


R 


A 


T 


I 
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IV. GENERATION PHASE 



IV. GENERATION PHASE 

1. Generation Setup and Drum Loader 

After the initial print-out: Pass II. Generation of Computer Code, 
this routine transfers from tape to core to drum the two 27-block sections of 
the Subroutine Generators. Next, it transfers from tape to core the 6 blocks 
of Generation Subroutines. 

RQ routine is then referenced to set up some block and line counters, put 
the proper parameter for 5 or 7 Uniservos into Op Control routine, and put two 
title blocks on both tape 5 holding Op File I and the tape that is to hold the 
generated coding. This tape will be either on Uniservo 4 or 7, depending on 
whether 5 or 7 Uniservos are used. In addition, on the 22nd line of the title 
block for the generated coding, the RQ routine puts the contents of 13, which is 
a count of the number of blocks of the corrected problem on tape 5. 

The tape holding the string-out input, either on Uniservo 3 or 6, is now 
moved forward one block to bypass the title. Then an exit jump is made to the 
beginning address of CG, the Control Generation subroutine. 

Also included in the same block as the Generation Set-Up is a Drum Loader 
routine which can be used to help update or correct the UNICODE Master Tape. 
First a flex or bioctal copy of a revised Generator is loaded into the core. A 
look at the annotated coding of this Drum Loader will show the numerical PAK 
setting to the left of a section of coding labeled for the specific Generator. 
A start at this address will transfer the Generator to its proper place in 
the drum. In this connection, the separate write-up on the System Tape Package 
should be consulted to ensure that the other necessary steps are taken to 
update the Master Tape correctly. 
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Generation Set-Up Routines - Flow Charts 




EntryN 



Print-Out: Pass 
II* Generation 
of computer code 



Transfer from 
type subroutine 
generators to 
drum via core 
(66 blocks) 



Transfer 
generation 

subroutines from 

tape to core 
(6 blocks) 



RQ generation 
subroutine Set- 
up routine 



Move forward 1 
title block on 
input string-out 
tape 



Jump to 
control 
generation 
subroutine 
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Generation Set-Up Routines- Flow Charts 

RQ Routine To Set Up Op Control Routines and Write Title Blocks For 
Op File I and Generated Routines on Tapes 








Clear ES, number 

of lines in Op 
File buffer 
region 




1 blockette of 
Z-lines to Op 
File title 
block 




A FILE A \ 
A TAPE A J 
1st 2 lines of 
2nd blockette 
of block 








/\ 




Filling remainder 
of block with 
Z - lines 




/EntrX 


































AAAOPA \ 
FILE A 1 J t0 
1st 2 lines of 
2nd title block 
of Op File tape 












Block to tape 5 
and count of 
blocks 




Fill remainder 
of block with 
Z - lines 






Block to tape 5 
and count of 
blocks 


« 








<s 


c 


































1 blockette of 
Z - lines to 
title block for 
generation tape 




AAGEN A to 
1st line of 
second blockette 




13, counter of 
number of blocks 
corrected prob- 
lem, to 2nd line 
of 2nd blockette 












Fill remainder 
of blocks with 
Z - lines 






i ^ 


































A SUBRO \ 
UTINES J 
1st 2 lines of 
2nd generation 
title block 








A 


Block to tape 
and count of 
blocks 




Fill block with 
Z - lines 






Block to tape 
and count of 
blocks 


^ 


/Exit\ 



























Generation Setup and Drum Loader Regions 



RE DA7230 

RE RQ7256 

RE BF7325 

RE BG6250 

RE BH6250 

RE CJ50212 

RE CK56462 

RE CD3300 

RE CE3300 

RE CN600 

RE EX7350 



Generation Subroutine regions are also needed to assemble this tape, 
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Generation Setup and Drum Loader 



Print-Out : 










Pass II. Gener- | 




IA 


DA 




ation of Computer!" 





RJ 


BF 


BF1 


Code 


' 1 


TP 


DA21 


GT3 




2 


RJ 


GT2 


GT 


To get subroutine 


3 


RP 


BG30000 


DA5 


generators on 


4 


TP 


BR 


CJ 


drum via core 


5 


TP 


DA22 


GT3 


■Pr Am + Q no, 


L 


D T 


CTO 


CT 


j_ jl \siu i/upu 


\j 


11U 


VJ-L£, 


VJJ. 




7 


RP 


BH30000 


DA11 




.10 


TP 


BR 


CK 




11 


TP 


DA23 


GT3J 




12 


RJ 


GT2 


GT J 




13 


RJ 


RQ 


RQ1 




14 


TP 


TN 


A 1 




15 


AT 


DA24 


GT3 I 




16 


RJ 


GT2 


GT J 




17 


MJ 





DA20 




20 


MJ 





CG 




21 


50 


CD1 


BR 1 




22 


50 


CE1 


BR J 




23 


50 


CN1 


BR 




24 


30 


103 







25 



CA 



DA26 





Routine to Set 




IA 


RQ 




Up Op Control 





MJ 





30000 


Tape Write 


1 


TP 


GP7 


ES \ 
ES5 J 


Routine and 


2 


TP 


GP7 


Write Title 










Blocks for Op 


3 


RP 


10024 


RQ5 1 
NP J 


File and Gen. 


4 


TP 


GP2 


Routines on 


5 


TP 


GP13 


NP24*) 


Tapes 


6 


TP 


GP14 


NP25J 




7 


RP 


10142 


RQll \ 
NP26J 


Op File 


10 


TP 


GP2 


Setup 


11 


TP 


RC 


GT3 




12 


RJ 


GT2 


GT 




13 


RA 


ES5 


GP10 




14 


TP 


GP 


NP 




15 


TP 


GP1 


NPl / 




16 


RP 


10166 


RQ20\ 




17 


TP 


GP2 


NP2 J 




20 


TP 


RC 


GT3 "I 




21 


RJ 


GT2 


GT ] 



To get generation subroutines from 

tape to core 
To operate generation Op-Control 
set up routine <-o*| 
Move forward tape|, J- 1 block. This 

servo holds the string- outs plus 

1-block title 
Dummy jump instruction (replaces 
discarded M 12 N clearing instruction) 
Jump to exit 

Parameters for generators in 2 sect. 
Parameter for generation subroutines 
Parameter for moving forward tape 3 

1 block 
Excess storage of a zero formerly 

used in instruction 17 



Exit 

Clears 2 storaqe locations, es = no. 
lines in Op File buffer region, np 
es 5 = no. of blocks of Op Files 

Puts 20 fl lines of Z's into np 

* File * 1 . + 

* Tape * J int0 np 

Filling remainder of np with Z f s 

Parameter -^generalized tape handler 
Writing block on tape via tape hdlr. 
Count of blocks 
A A A P A] to np 
FILE A 1J 

Filling rest of np with Z*s 
Using tape handler 
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Gen. Routines 
Setup 



22 RA 

23 TP 

24 AT 



26 RP 

27 TP 

30 TP 

31 TP 

32 RP 

33 TP 

34 TP 

35 RJ 

36 RA 

37 TP 

40 TP 

41 RP 

42 TP 

43 TP 

44 RJ 

45 RA 

46 MJ 
CA 



ES5 
RC2 

TN 



25 TP GP7 



10024 
GP2 

GP15 
13 

10142 

GP2 

RC4 

GT2 

ES6 

GPU 

GP12 

10166 

GP2 

RC4 

GT2 

ES6 



RQ47 



GP10 

A \ 
RC4 J 

ES6 

RQ30 1 
GN J 

GN24 
GN25 

RQ34 1 

GN26 J 

GT3 \ 

GT J 

GP10 

GN 

GN1 

RQ43 

GN2 

GT3 

GT 

GP10 J 

RQ 



Count of blocks 

Putting proper parameter in RC4 de- 
pending on whether TN = or 3 0. 
The latter is for 7 servos. 

Clearing counter for no. blocks of 
generated subroutines 

20 lines of Z *s to GN, buffer region 
of subroutines used in writing on 
tape 

AAGenAto GN 

Count of no. blocks of corrected 
problem on tape 5 

Filling GN with lines of Z*s 
Writing block on tape 



Count of blocks 
ASUBRO 
UTINES 



| to GN 
Filling GN with lines of Z's 



Writing block on tape and counting 
blocks 

Jump to exit 



IA 
MJ 



TP 

RJ 

MJ 



01 

52 

34 



10 01 

11 24 

12 51 

13 52 

14 26 
CA 



BF 



BF4 

UP2 



BF5 

01010 

24656 

22010 

32305 

66345 

31012 

67663 

51273 

BF15 



30000 

UP3 1 

UP J 

BF 

10 

10101 

50134 

10101 

03054 

15001 

65147 

05401 

07777 



Gives print-out :AAAAAA Pass II. 
Generation of Computer Code 

Parameter 

A - A 

PASS I 
I . AAAA 
A G E N E R 
A T I N A 
F A C M 
P U T E R A 
CODE 
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Routine used to load Generators from Core to Drum (used only in assembling 
initially the UNICODE generators; operated by console manipulation). A changed 
generator is first read into the core. Then a start with PAK set to the num- 
bered address shown at left will transfer the generator to its place in the drum. 





IA 


EX 






7350 


RP 


DR30000 


EX44 


Start 




TP 


KB 


CJ 




7352 


RP 


DM30000 


EX44 


Jump 




TP 


KB 


EA 




7354 


RP 


DK30000 


EX44 


If 




TP 


KB 


EB 




7356 


RP 


D030000 


EX 44 


Print 




TP 


KB 


EC 




7360 


RP 


DY30000 


EX44 


Compute 




TP 


KB 


ED 




7362 


RP 


DU30000 


EX44 


Vary 




TP 


KB 


EF 




7364 


RP 


DQ30000 


EX44 


Resume 




TP 


KB 


EY 




7366 


RP 


DW30000 


EX44 


Exit 




TP 


KB 


EH 




7370 


RP 


DT30000 


EX44 


Type 




TP 


KB 


EI 




7372 


RP 


DN30000 


EX44 


List 




TP 


KB 


EJ 




7374 


RP 


DP30000 


EX44 


Read 




TP 


KB 


EK 




7376 


RP 


DS30000 


EX44 


Stop 




TP 


KB 


EL 




7400 


RP 


DZ30000 


EX44 


Dimens. 




TP 


KB 


EM 




7402 


RP 


DX30000 


EX 4 4 


Pseudo—O n Head in* 1 




TP 


KB 


EN 




7404 


RP 


DV30000 


EX44 


End of Tape 




TP 


KB 


EO 




7406 


RP 


DH30000 


EX44 


Eq. 1 Listing 




TP 


KB 


ET 




7410 


RP 


D 130000 


EX44 


Eq. 2 Redundancy 




TP 


KB 


EU 




7412 


RP 


DJ30000 


EX44 


Eq. 3 Generator 




TP 


KB 


EV 






MS 





EX2 






CA 


EX45 
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2. GENERATION SUBROUTINES 



2. Generation Subroutine Regions 





RE 


Twon 


RE 


GT21 


RE 


TH21 


RE 


UP421 


RE 


UQ443 


RE 


US453 


RE 


UW513 . 


RE 


EP537 


RE 


BR537 


RE 


BP564 


RE 


BQ632 . 


RE 


WA653 * 


RE 


WB677 / 


RE 


GP717 


RE 


RC735 


RE 


ES742 


RE 


RG755 


RE 


OP1047 


RE 


XP1126_ 


RE 


CW1211 


RE 


LW1250 


RE 


HI1306 


RE 


KI1336 


RE 


LS1465 


RE 


CG15301 
CH1642J 


RE 


RE 


VX16701 
VE2044 J 


RE 


RE 


NP2052 


RE 


WL2242 1 
BK2242 J 




RE 


KB2512 


RE 


GN5360 


RE 


CI144 




'RE 


DH612 


Size of 


RE 


DI2604 


Generators 


RE 


DJ2615 


on Drum 


RE 


DK763 




f RE 


DM33 




RE 


DN461 




RE 


DO 107 




RE 


DP430 




RE 


DQ174 




RE 


DR30 




RF 


DS425 




RE 


DT560 


1 


RE 


DU766 



TeiTiporary to indicate whether 5 or i servos vset in 
string-out) 

Tape handler 



Line-number processing routine 



Machine Error Routine 



Sentence number print-out during an error print-out 



Op routine to write output on tape and RG routine 
used as adjunct to VARY 



Call word routine 

Routine to get call word of referenced line number 

from list 
Routine to put call word in referenced line-number list 
Illegal line jump check routine 
Library list routine 

Control generation routine 

Excess three to Flex code 

Op File buffer 

Input buffer (250« lines maximum) 
o 

Region where any generator operates 

Generated routines output buffer 

Library List Threshold (keeps max. of library routines 

referenced at 99) 
Eq. 1, Generation 
Eq. 2, Redundancy 
Eq. 3, Generator 
If 

Jump 
List 
Print 
Read 
Resume 
Start 
Stop 
Type 
Vary 
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RE 


DV502 


End of tape 




RE 


DW34 


Exit 




RE 


DX24 


Pseudo-Op Heading 




RE 


DY551 


Compute 




. RE 


DZ53 


Dimension 




RE 


ZZ7230 1 






RE 


DA7230J 


Generation Set-Up Block 




RE 


ZA77000 


Region of UNICODE Service Routines 




RE 


FC40001 


Excess Three to Flex-Code List 




RE 


CB40101 


Combination List 




RE 


DL40102 


Dimension List 




RE 


CL46101 


Constant List 




RE 


VF47101 


Vary File List 




RE 


IZ47246 


Referenced Line-number List 




RE 


JN47722 


List of call words of 2nd-line numbers of sub-programs 




RE 


RW50023 


Rewind List of call words of tape numbers referenced 




RE 


LN50046 


Library List of call words of library routines refer- 
enced 




'RE 


CJ50212 


Start 




RE 


EA50242 


Jump 




RE 


EB50275 


If 




RE 


EC51260 


Print 


Initial 


RE 


ED51367 


Compute 


addresses 


RE 


EF52140 


Vary 


of gener- 


RE 


EY53126 


Resume 


ators 


RE 


EH53322 


Exit 


stored on 


RE 


E 153356 


Type 


drum 


RE 


EJ54136 


List 




RE 


EK54617 


Read 




RE 


EL55247 


Stop 




RE 


EM55674 


Dimension 




RE 


EN55747 


Pseudo-Op Heading 




RE 


E055773 


End of Tape 




RE 


ET56475 


Equation l t Generation Sorting 




RE 


EU57307 


Equation 2 r Redundancy Check 




RE 


EV62113 


Equation 3 r Generator 


These 


RE 


IG2675 


Routine to put Constant List on tape 5 


routines 


RE 


UG2713 


Routine to put Dimension List on tape 5 


are part 


RE 


EG2732 


Rewind tape routine 


of End of 


RE 


BE2750 


Gives generation termination print-out 


Tape and 


RE 


BU2774 


Sends excess-three symbol list to tape 5 


are refer- 








enced from 








Control 








Generation 









Unless otherwise stated in the coding, the above regions are sufficient for 
all the Generation Subroutines included in this section. 
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Control Generation Routine 

As with the Generation Set-Up Routine, the indicator TN is used to determine 
on which Uniservo the string-out input to generation has been written. It may 
either be on Uniservo 3 or 6 depending on whether 5 or 7 Uniservos have been 
used. 

The title block having been passed by, the first line of any block on this 
tape beginning a new sentence string-out contains the number of lines in the 
string-out. If this number is greater than I70 fi , two blocks of input for that 
sentence are read into the input buffer. The buffer can only preserve a maximum 
of 250 fi significant words. Any excess lines above 250 fi are later overlayed by 
the transfer of a generator into the core. Alarms- in the Translation or String- 
Out Phase have already given adequate protection against possible exceeding of 
this string-out buffer maximum so there is no further check made against this 
contingency in generation. 

The line number of the sentence being analyzed is compared with the numbers 
in the referenced line-number list IZ by means of routine HI and, if found, 
its call word added to the list as needed. 

The content of BK2 t which holds the name of the sentence under analysis, is 
compared with a list of sentence titles to determine what type of sentence is 
being analyzed. Depending on which equality is found, a jump is made to a 
corresponding section of the routine which brings in the proper generator from 
the drum, makes a referencing return jump to it, and then jumps back to the 
beginning entry of Control Generation to get the next sentence input. The 
return jump to the generator causes the generation of the desired sentence 
coding, followed by the writing of it on tape and the storing of its Op File 
in a buffer for later writing on tape. 

If none of a list of 13 sentence types is recognized, a comparison is made 
to see if End of Tape instruction has been encountered. If yes, the End of Tape 
Generator is brought into the core from the drum. Control of the End of Tape 
generation is retained in the Control Generation from CG77-CG110 where a 
succession of return jumps does a variety of things explained more thoroughly 
in the write-up on the End of Tape Generator. The exit from this succession is 
a jump to ZA10, the address of an overall UNICODE control service routine in 
the drum. 
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If the End of Tape sentence is not recognized as suggested in the preceding 
paragraph, the call word of the sentence is checked to see if it is greater 
than 40000. If yes, the sentence is recognized as a Pseudo-Op Heading and the 
generator for this type is brought into the core. Before referencing this 
generator, the line number of the sentence is put in the proper place in the 
prelude of the routine which is to be generated. Following this extra remedial 
step, the generator is referenced similarly as with other generators. 

If the call word of the sentence proposed above is not greater than 
40000, the sentence is determined by this system of elimination to be the only 
remaining type not considered - namely, an equation. 

This type of sentence requires special handling which is explained at greater 
length in another write-up. Briefly an equation sorting routine is transferred 
from drum to core and then referenced by Control; next, an equation redundancy 
routine is transferred from drum to core and similarly referenced; finally, 
the last equation generator is brought into the core and referenced to complete 
the handling of the sentence. Termination is as usual by getting the next 
sentence input. 

The only final termination to generation lies in the recognition and 
handling of an End of Tape sentence. 

All generators or portions of generators are transferred to the core at the 
same starting address, 2512. This first line is an exit line, the entry line 
for the main referencing of a generator being the Reco equivalent of 2513. 

The generators are packed on the drum starting at 50212. Information con- 
cerning their assumed length on the drum and their initial addresses there is 
obtained by examination of the annotated copy of Generation Subroutine regions 
preceding the Reco coding of the Generation Phase. 
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Flow Chart for Control Generation Routine 




Read in first 
block string~out 
for any one sen- 
tence to input 
buffer region 
from tape 



Is number of 
[words in string- 
.out < 171? 



No 




10 11 12 13 




Yes 



Read in second 
block of string- 
out for same sen- 
tence to input 
buffer region 
from tape 



What type of 
sentence is being 
analyzed? 



©0©©^ 




HI line-numbei 

reference-list 
check 
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Is sentence an End 
of Tape type? 




Yes 



Bring in End of Tape 
generator to core 
from drum 



Transfer Op File and 
generation routine line 
to tape 



'eference generator. 
Calculates 14, closes 
out Op Files, gen< rtnesj 
v and puts lib, list 1 
on tape 



Put Dimension 
List on tape 



Put Constant 
List on tape 



Put Excess-three- 
symbol List on tape 



'ewind tapes 3 and 4 
'or tapes 6 and 7 and 
onove backward on tape 5, 
v to beginning of Op File/ 



Print-Out: END OF GEN- 
ERATION. To interrupt 
compilation set A not 
= 0* Start. 
Computer stop here 
must be followed by 
start 



Is sentence call 
word > 40000? 



No 



Yes 



Bring in Pseudo-Op 
Heading generator to 
core from drum 



Put line number into 
output line 



Jump to ZA10, 
UNICODE control 
in drum to start 
set-up segmen- 
tation 



Transfer eq. no. 1 
(listing) from drum 
to core 



Referencing eq. no. \ 
1 (listing) generator. 



Transfer eq. no. 2 
(redundancy) from 
drum to core 



Referencing eq. no. 
2 (redundancy) 



Transfer eq. no. 3 
(generator) from drum 
to core 



Reference generator 
in core 




Jump to entry 
to read in next 
block 




Rewind all tapes 
and computer 
stop 
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Flow Chart for Control Generation Routine (cont.) 



Bring in Start gener- 
ator to core from drum 



h® 



13 — a 



Bring in Jump generator 
to core from drum 



& 



Transfer dimension 
generator to core 
from drum 



— ® 



<s>- 



Bring in If generator 
to core from drum 



h® ©- 



Transfer Stop gener- 
ator to core from drum 



©H 



Bring in Print gener- 
ator to core from drum 



& 



Transfer Read gener- 
ator to core from drum 



®_j 



Bring in Compute gener- 
ator to core from drum 



— @ ©-^ 



Transfer List gener- 
ator to core from drum 



-® 



gh 



Transfer Vary generator 
to core from drum 



-*© ©— 



Transfer Type gener- 
ator to core from drum 



-® 



©H 



Transfer Resume gener- 
ator to core from drum 



-© & 



Transfer Exit gener- 
ator to core from drum 



-® 
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CONTROL GENERATION ROUTINE 



IA 
TP 



Sentence 
is an 
equation 



AT 
RJ 
TP 
TJ 
TP 
AT 
RJ 



10 RJ 



12 RP 

13 EJ 

14 SN 

15 SA 

16 AT 

17 TV 

20 MJ 

21 EJ 

22 TP 

23 TJ 

24 RP 

25 TP 

26 RJ 

27 RP 

30 TP 

31 RJ 

32 RP 
[33 TP 

34 

35 

36 

37 
40 TP 



41 RJ 

42 MJ 

43 RP 

44 TP 

45 RP 

46 TP 

47 RP 

50 TP 

51 RP 

52 TP 



CG 

TN 

CH2 

GT2 

BK 

CH 

TN 

CH3 

GT2 

HI 



11 TP BK2 



20015 
CH4 

Q 

CG34 

CG35 

A 



CH21 

CHI 

BK3 

DH30000 

ET 

KB 

D 130000 

EU 

KB 

DJ30000 

EV 









BK1 



KB 



DR30000 

CJ 

DM30000 

EA 

DK30000 

EB 

D030000 

EC 




Bringing in 1st block (for any one sentence) 
from tape | H t0 bk ' buffer in P ut re 9 ion 

Is input < 171? 

Bringing in 2nd block for same sentence to 
input region from tape 5~ 3 



[ 



Check if line no. is in ref . list and, if so, 

giving it a call word 
Name of sentence to A 90014 n 12 

Determining if sentence is start, jump, if 

11 10 7 6 5* J V 
print, computet vary, resume, exit, type, 
3 2 l 
list, read, stop, or dimens. and going to 

proper transfer command accordingly. 



Is sentence an End of Tape? 

Is call word >40000? If so, it is a Pseudo-Op 
Heading 



■} 



Translation for equation 



Redundancy check for equation 



Transferring equation generator to core 



„ Unused words 

Putting line number into proper output line 
for Pseudo-Op Heading Routine to correct 
oversight in that routine 

Standard return jump to any generator 

Return to get next sentence 

Transfers Start generator from drum to core 
and then jumps to reference the generator 

Same with Jump 



11 } 



Same with If 



Same with Print 
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53 RP 

54 TP 

55 RP 

56 TP 
5? RP 

60 TP 

61 RP 

62 TP 

63 RP 

64 TP 

65 RP 

66 TP 

67 RP 

70 TP 

71 RP 

72 TP 

73 RP 

74 TP 

75 RP 

76 TP 

77 RP 

100 TP 

101 TP 

102 RJ 

103 RJ 

104 RJ 

105 RJ 

106 RJ 

107 RJ 

110 RJ 

111 MJ 
CA 

IA 



1 

2 50 



4 65 

5 44 

6 34 

7 52 

10 26 

11 70 

12 54 

13 30 

14 66 

15 46 



DY30000 

ED 

DU30000 

EF 

DQ30000 

EY 

DW30000 

EH 

DT30000 

EI 

DN30000 

EJ 

DP30000 

EK 

DS30000 

EL 

DZ30000 

EM 

DX30000 

EN 

DV30000 

E0 

CH25 

OP 

KB 

UG 
IG 
BU 
EG 

BE 

CGI 12 

CH 


103 



3 50 103 



66245 
67475 
31777 
54345 
51475 
24547 
30656 
72346 
73523 
34656 



11 } 



BE1 
ZA10 



171 

40000 

BK 

BK170 

46677 

27777 

77777 

6677 

26766 

37777 

74730 



Same with Compute 
Same with Vary 
Same with Resume 
Same with Exit 
Same with Type 
Same with List 
Same with Read 
Same with Stop 

Same with Dimension 

Brings in Pseudo-Op Heading Routine, jumps 
to CG40 to perform 1st function of routine 
before referencing the generator proper 

Brings in End of Tape generator 

Sends End of Tape data to tape 

Ref. generator! Calculates 14, closes out 

Op File, gen* rtnes r and puts list 1 on tape 

Puts Dimension List on tape 

Puts Constant List on tape 

Getting Excess-three symbol List 

Rewind 3 and 4 or 6 and 7 and move backward 

on 5 to beginning of Op File 
Termination of gen. print-out 
Exit to UNICODE control in drum 



Parameter to read 1st block of any sentence 

string-out to input 
Parameter to read 2nd block of same sentence 

string-out to input 
START 
JUMP 
IF 

PRINT 
COMPUT 
VARY 
RESUME 



67777 EXIT 
7777 TYPE 
67777 LIST 
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16 


54 


30242 


77777 


READ 


17 


65 


66515 


27777 


STOP 


20 


27 


34473 


5065 


DIMENS 


21 


30 


50277 


77777 


END 


22 
23 






23000 



2 \ 
J 


Op Fill 


24 





23000 





Gen. s 


25 





CH24 


CH22 


Parame 



Gen. setup for End of Tape 
Parameter for referencing op routine for 
End of Tape 
CA CH26 
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COMPUTER ERROR ROUTINE 

This routine is used when a compilation inconsistency occurs in the 
Generation Phase or later. It prints the following: 

ALARMAxxA^CompilationAlnconsistencyA(Possible Computer Error), 
Recompile* 

where XX, a decimal number from 1 - 20, is determined by where the routine is 
entered. The regular entrances to the routine are BR1 to BR24. If the entrance 
is BR1, XX = 1; if the entrance is BRIO, XX = 8; if the entrance is BR24, XX = 
20; etc. The routine should not be entered with a. return ^ump» 

After the print-out, all tapes are rewound, and the computer stops with PAK 
set at the UNICODE service entrance of compilation. 

A rewind of all tapes with a computer stop is secured without a print-out 
by entering the routine at BQ6. 

Eleven alarms (entries BR1-BR13) have been assigned at different portions 
of the UNICODE coding. Explanations of these alarms follow: 
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COMPILER INCONSISTENCY OR COMPUTER ERROR ALARMS 



Print*-out 


Entry 


ALARM 1 


BR 1 


ALARM 2 


BR 2 


ALARM 3 


BR 3 



ALARM 4 
ALARM 5 
ALARM 6 



BR 4 
BR 5 
BR 6 



ALARM 7 


BR 


7 


ALARM 8 


BR 


10 


ALARM 9 


BR 


11 


ALARM 10 


BR 


12 


ALARM 11 


BR 


13 



Description 

Subscripted variable symbol or call word is not 
found in the Dimension List. 

Referenced sentence number is not found in the 
Reference (IZ) List. 

Sentence number of last sentence in the range of 
a VARY is not found in the VARY File (VARY genera- 
tor). 

Initial address of Operand List > Current address 
(Equation Generator). 

Call word is not found in Directory I (Segmentation 
Phase). 

Op File III and Directory 4 are inconsistent. 
Flagged call word is not found in Op File III 
(Allocation Phase). 

Tape on Servo 2 positioned incorrectly. 

Tape on Servo 3 (or 6) positioned incorrectly. 

Tape on Servo 4 (or 7) positioned incorrectly. 

Tape on Servo 5 positioned incorrectly. 

Call word within routine is not found in Op File 
III (Processor). 
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Machine Error Print 



IA 



1 RJ 



RJ 
RJ 
RJ 
RJ 
RJ 
RJ 



10 RJ 

11 RJ 

12 RJ 

13 RJ 

14 RJ 

15 RJ 

16 RJ 

17 RJ 

20 RJ 

21 RJ 

22 RJ 

23 RJ 

24 RJ 
CA 



BR 



BP 

BP 

BP 

BP 

BP 

BP 

BP 

BP 

BP 

BP 

BP 

BP 

BP 

BP 

BP 

BP 

BP 

BP 

BP 

BP 

BR25 



BR1 

BQ 

BQ 

BQ 

BQ 

BQ 

BQ 

BQ 
BQ 
BQ 
BQ 
BQ 
BQ 
BQ 
BQ 
BQ 

BQ 
BQ 

BQ 
BQ 
BQ J 



Used entries 



Unused entries 



IA 
TP 



SS 

AT 



TP 

RJ 

TP 



7 MJ 

10 TP 

11 TP 

12 RJ 

13 RA 

14 IJ 

15 MS 

16 

17 
20 

CA 



BQ 

BP 

BR 

BP1 

30000 

BP26 

UP2 

BQ17 

10000 

BQ16 

BP44 

GT2 

GT3 

BQ20 









BQ21 



A 

17 

BQ3 

30000 

UP31 

UP J 

BQ20 

BQ11 

BQ20 

GT3 

GT 

BP45 

BQ12 

ZA 

4 

6 





Manipulation to get proper alarm number 
into print-out coding 



Print-out 

Entry for rewind and stop only. Sets index 

for 7 Uniservos 
Bypasses next instruction if MJ1 is set 
Sets index of rewinding tapes for 5 Uniservos 
'Rewind parameter" to tape handler 
Rewind Uniservo via tape handler subroutine 
Increasing tape handler parameter to rewind 

next tape 
Jump back to rewind remaining tapes 
Exit and stop 

Index Constant (Used by Read Generator also) 
Index Constant for 7 Uniservos 
Holds index for rewinding Uniservos 
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IA BP 












30000 


Set by entry "return jump"" lines and used 
to compute alarm no. 


1 


TP 


BP1 


BP30 


Dummy instruction used to make up instruction 
BQ3 


2 


04 


77220 


10126 


1. A AC 


3 


05 


77220 


10126 


2. AAC 


4 


06 


77220 


10126 


3. AAC 


5 


07 


77220 


10126 


4. AAC 


6 


10 


77220 


10126 


5. AAC 


7 


11 


77220 


10126 


6. AAC 


10 


12 


77220 


10126 


7. AAC 


11 


13 


77220 


10126 


8. AAC 


12 


14 


77220 


10126 


9. AAC 


13 


04 


03220 


10126 


10.A A C 


14 


04 


04220 


10126 


ll.AAC 


15 


04 


05220 


10126 


12.AAC 


16 


04 


06220 


10126 


13.AAC 


17 


04 


07220 


10126 


14.AAC 


20 


04 


10220 


10126 


15.AAC 


21 


04 


11220 


10126 


16.AAC 


22 


04 


12220 


10126 


17.AA C 


23 


04 


13220 


10126 


18.AAC 


24 


04 


14220 


10126 


19.AAC 


25 


05 


03220 


10126 


20.A A C 


26 





BP27 


15 


Parameter for print-out 


27 


24 


46245 


44701 


ALARM A 


30 











Filled in by alarm number computation 
coding 


31 


51 


47523 


44624 


M P I L A 


32 


66 


34515 


00134 


T I N A I 


33 


50 


26515 


06534 


N C N S I 


34 


65 


66305 


02673 


S T E N C Y 


35 


01 


17525 


16565 


A ( P S S 


36 


34 


25463 


00126 


I B L E C 


37 


51 


47526 


76630 


M P U T E 


40 


54 


01305 


45451 


R A E R R 


41 


54 


43220 


10154 


R ) . AAR 


42 


30 


26514 


75234 


E C M P I 


43 


46 


30227 


77777 


L E . 


44 


10 


1 





Rewind parameter to tape handler 


45 




CA 


1 
BP46 





Constant (Used in Read Generator also) 
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Flow Chart for WA, WB "Sentence 



.(. 



.)" Print-Out - Generation 



/ Line\Sentence 
(Number^ Type , 






Load ON 77-77 into 
print-out storage 




EntryN 



^ 


' 








Line number to print- 




Sentence type to print- 
out storage 


>( 


out sto: 


rage 




y \ 



Print-Out 
Sentence 



*r- 



Exit 




©^ 




Is sentence 
type DIMENS? 



Yes 



Load ION 77 - 77 into 
print-out storage 



® 



Load EQUATI into 

print-out storage 




Yes 



Is sentence 
type EQUATN 



No 



Is sentence 
type EQUATI? 




No 



Is sentence 
type COMPUT? 



Yes 



Load E77-77 into 
print-out storage 



© 
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WA Subroutine to Print-Out "Sentence (Line Number) (Sentence Type)' 

without Error Referencing 





IA 


WA 









MJ 





30000 


Exit 


1 


MJ 





WA2 


Start 


2 


TP 


WL1 


WB3 


Line number to print-out storage 


3 
4 


TP 
TP 


WL2 
A 


A 
WB5 


Sentence type to print-out storage aj 


5 


TP 


WB10 


WB6 




6 


EJ 


WB15 


WA15 


Is type EQUATN? 


7 


EJ 


WB11 


WA16 


Is type EQUATI? 


10 


EJ 


WB16 


WA20 


Is type COMPUT? 


11 


EJ 


WB17 


WA22 


Is type DIMENS? 


12 
13 


TP 
RJ 


WB 
UP2 


UP3 1 

nr ? Print-Out : Sentence ( 


14 


MJ 





WA 




15 
16 


TP 
TP 


WB11 
WB12 


WB5 1 r . f EQUATI \ . + . + + + 
WB6 J Uad L0N77 71 f mto print-out stora< 


17 


MJ 





WA12 




20 


TP 


WB13 


WB6 


Load E77 77 into print-out storag< 


21 


MJ 





WA12 




22 


TP 


WB14 


WB6 


Load I0N77777 into print-out storage 


23 


MJ 
CA 

IA 




WA24 

WB 


WA12 










WB1 


7 


Parameter for print-out 


1 


65 


30506 


63050 


S E N T E N 


2 


26 


30010 


17777 


C E A A 77 77 


3 











Line number 


4 


01 


01011 


77777 


A A A (77 77 


5 
6 










r Sentence name 


7 


43 


01017 


77777 


) A A77 77 77 


10 


77 


77777 


77777 


Filler 


11 


30 


53672 


46634 


EQUATI 


12 


51 


50777 


77777 


ON 77 77 


13 


30 


77777 


77777 


E 77 77 


14 


34 


51507 


77777 


ION 77 - 77 


15 


30 


53672 


46650 


EQUATN 


16 


26 


51475 


26766 


COMPUT 


17 


27 

CA 


34473 
WB20 


05065 


DIMENS 
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ROUTINE TO CONTROL TRANSFER OF OP FILE 1 ITEMS 
AND GENERATED SUBROUTINES TO TAPE 



To use Op Control Routine, a parameter word must be sent to Opi prior to 
the entry instruction RJ Op Op$» u of Opl must contain the address of the 
first line of the generated subroutine; v, the address of the first line of the 
Op File 1 entry for the subroutine. The function of the routine is to transfer 
the generated subroutines and Op File 1 items to Uniservos. Z lines are added 
to fill up the last block of each generated subroutine. 170 fi lines constitute 
a block. 

The actual writing on tape units is done by means of the generalized tape 
handler routine. The proper parameter words and entries to the tape handler 
routine are supplied in this Op Control Routine. 

The entry instruction of this routine is a return jump to RG subroutine 
which adds a call word to the Op File and alters the exit line of the generated 
routine if the sentence generated is the last sentence in a VARY loop. 

Op File 1 items are stored in a buffer region, NP, and accumulated until 
they fill a block, whence they are transferred to tape. Not taken care of in 
this routine is the final unfilled block of Op File 1 items. The coding 
necessary to fill this final Op File 1 block with Z's and transfer it to tape 
is contained in the End of Tape instruction. 

The routine handles data stored either in the core or drum. If subroutine 
data is in the drum and it exceeds a block, it is transferred a block at a 
time into region GN in the core and thence onto tape. Subroutine data groups 
less than a block are transferred from drum to core in one set of repeat 
instructions. Op File 1 data groups in the drum are transferred to NP in the 
core just as if they were located in the core. 

Subroutine data groups in the core are handled somewhat faster. All 
complete blocks of a subroutine are handled as a single unit in their referral 
to the generalized tape handler. The last partial block of a subroutine is 
then transferred to region GN, where the proper number of Z lines is added to 
make a .complete, block,. This region GN of 17Q ft lines is needed only during Op 
Control operation. Between referrals to the routine it may be used for other 
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temporary purposes. In this respect it differs from region NP which is 
reserved exclusively for Op File 1 item storage during generation. 

At the beginning of generation instruction RJ RQ RQ1 causes the proper 
starting blocks to be written on tape, and sets up the proper parameters for 
the generalized tape handler, depending upon whether 5 or 7 Uniservos are used. 
On Uniservo for generated subroutines, GEN TAPE is written on the 21st and 22nd 
lines of the first block, SUBROUTINES on the 1st and 2nd lines of the 2nd 
block. On Uniservo for Op File items, FILE TAPE and OP FILE 1 are similarly 
put on the first two blocks, with Z - fillers on the balance of the block lines. 
The counts of blocks of subroutines and Op File 1 items include these starting 
blocks. 

The v portion of the first line of a subroutine program must contain the 

number of lines of prelude and routine. Similarly, the v portion of the first 

line of an Op File 1 item should contain the number of lines in the item. These 
figures are used in this routine. 

ES, the counter for the number of lines in NP, is used in the End of Tape 
routine to transfer the final Op File 1 block to tape. ES5, the number of 
blocks of Op File I written on tape, and ES6 t the number of blocks of sub- 
routines written on tape, are also used in subsequent routines. 
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Flow Charts for Op Control Routines - Generation 
Op Routine To Store Op Files and Write Buffer Loads on Tape 




Add call word to 
Op File and alter 
generation sub- 
routine exit, if 
last sentence 
of VARY 




Will Op File of rou- 
tine overflow buffer 
region? 



No 



© 



Transfer Op File 
or its balance 
to buffer region 




Yes 



The part of Op 
File needed to 
fill buffer is 
transferred to 
buffer region 







Transfer buffer region 
to tape 



Up count of 
Op File blocks 




Is no. lines not 
transferred from Op 
File <17Q? 



No 



Transfer 170 lines 
to buffer region 



© 
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Flow Charts For Op Control Routines - Generation - (Cont.) 
XP Routine To Write Generated Routines on Tape 




Is subroutine or bal- 
ance < 170 lines? 



No 



No 



Compute number of 
complete blocks 



Write number of com- 
plete blocks on tape 



Is subroutine or \ Yes 
balance < 170 lines? ) — 



Yes 



<b 



Up count of 
subroutine blocks 



Transfer 170 lines 
from drum to buf- 
fer region 



Write buffer on 
tape via tape 
handler 



Up count of sub- 
routine blocks 



<D 



G> 



Transfer subroutine 
or balance thereof 
to buffer region 



Filling buffer with 
Z lines 



Transfer buffer 
to tape 



Up count of sub* 
routine blocks 
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Flow Charts for Op Control Routines - Cont. 
RG Routine to Insert Vary Call Word in Exit Line and in Op File I Item of Last Statement in a Vary Range 

Box 1 




Is sentence call 
word for a state- 
ment other than 
vary? 




No 



<D 



Set indicator 
equal zero 




Search Vary File 
>( for current sen- 
tence number. 
Found? 




No 



0* 



Reset box 1 to 
continue search 



Insert call word 
of vary from Vary 
File item into exit 
line of routine 



vO 
nO 




Indicator = Q? A Yes 



^® 



Decrease Op File 
I address in Op 
parameter by one 



Increase Op File 
I item length 
by one 



Move Op File I 
item back one 
location 



Set indicator 
not equal zero 



<D 




Insert vary call 
word as cross 
reference in Op 
File I item 



<D 




OP CONTROL SUBROUTINE 



34 RS ESI 



Routine to 




IA 


OP 




Store 


Op 





MJ 





30000 


Files 


and 


1 





30000 


30000 


Write 


Op 










Files 


on 


2 


RJ 


RG 


RG1 


Tape 
















3 


TP 


0P1 


Q \ 
ESll J 






4 


QT 


GP3 






5 


SP 


0P1 


17 ' 






6 


TU 


A 


OP 10 






7 


TP 


GP3 


Q 






10 


QT 


30000 


ESI . 






11 


TP 


ES 


ES2 \ 
ESI J 






12 


RA 


ES2 






13 


TJ 


GP5 


0P44 






14 


TP 


GP5 


A \ 
ES4 J 






15 


ST 


ES 






16 


SA 


GP6 


17 1 
OP25 J 






17 


TU 


A 






20 


TP 


ES 


ES3 1 






21 


RA 


ES3 


RC1 \ 






22 


TV 


ES3 


0P26 J 






23 


SP 


ESll 


17 i 






24 


TU 


A 


0P26 J 






25 


RP 


30000 


0P27 \ 
30000J 






26 


TP 


30000 






27 


TP 


RC 


GT3 \ 
GT J 






30 


RJ 


GT2 






31 


RA 


ES5 


GP10 






32 


TP 


GP7 


ES 






33 


RA 


ESll 


ES4 



ES4 





35 


TJ 


GP5 


0P44 




^36 


SP 


ESll 


17 


1 block of 


37 


TU 


A 


0P41 


170 lines 


40 


RP 


30170 


0P42 


to buffer 


41 


TP 


30000 


NP 


region NP 


42 


TP 


GP5 


ES4 


for trans- 


.43 


MJ 





0P27 


fer to 


"44 


TP 


ES 


ES3 


tape 


45 


TP 


A 


ES 




46 


TP 


ESI 


A 


Last 


47 


SA 


GP6 


17 


partial 


50 


TU 


A 


0P55 


block to * 


51 


RA 


ES3 


RC1 


NP 


52 


TV 


ES3 


0P56 



} 



Exit 

u = address of 1st line of generated sub- 
routine, v = addjess of 1st line of Op File 

VARY subroutine alters exit lines of routine 
being written on tape 

Address of 1st line of Op File — > ESll 
Number of lines in Op File — > ESI 



ES + ESI -> ES2 
Does ES2 exceed 170? 



Number of lines left to fill NP 



ES4 



Sets up u of repeat command Op 25 so that 
proper number of lines needed to fill NP 
are transferred to it 

Sets up v of Op 26 such that Op File items are 
transferred to correct part of NP 



Sets up u of Op 26 to correct beginning add. 
Transfers Op File items to fill up NP 

Writes completed NP onto a block of tape 

Count of Op File blocks 

Clears ES storage 

ESll + ES4 — >ES11, the next address of Op 

File item to be transferred 
ESI - ES4 ->ES1, number of lines left in 

Op File item to be transferred 
Is 170 > no. of lines left in Op File item? 

Setting up u of Op 64 to proper address 

Transferring 170 Op File items to NP 

170 -> ES4 

Number lines in NP -» ES3 

Number of lines due to be in NP -> ES 

Sets up u of repeat to proper value 
Sets up v of Op 56 to correct address 
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53 


SP 


ES11 


54 


TU 


A 


55 


RP 


30000 


.56 


TP 


30000 



CA 0P57 



17 1 

np _, > Sets up u of Op 56 to correct address 

XP ) Transfers last quantity of Op File items to 
30000J NP, leaving NP as an unfilled partial 
buffer region block. 



Routine to 




IA 


XP 




Write Gen- 





TU 


0P1 


XP2 ' 


erated 


1 


TP 


GP3 


Q 


Routines 


2 


QT 


30000 


ES12. 


on Tane 


3 


LQ 


0P1 


25 1 




4 


QT 


GP3 


ES10 J 




5 


TJ 


GP6 


XP22 




' 6 


TP 


ES12 


A 1 
XP40J 




7 


TJ 


GP5 




10 


SP 


ES10 


17 1 
XP13 J 




11 


TU 


A 


Drum 


12 


RP 


30170 


XP14 1 
GN J 




13 


TP 


30000 




14 


TP 


RC4 


GT3 "1 




15 


RJ 


GT2 


GT J 




16 


RA 


ES6 


GP10 




17 


RS 


ES12 


GP5 




20 


RA 


ES10 


GP5 




.21 


MJ 





XP6 




'22 


TP 


ES12 


A \ 
XP40J 




23 


TJ 


GP5 




24 


DV 


GP5 


ES7 




25 


TP 


A 


ES12 




26 


TP 


ES7 


A 




27 


ST 


GP10 


A 


Core 


30 


LA 


A 


25 


31 


AT 


RC4 


GT3 . 




32 


TV 


ES10 


GT3 




33 


RJ 


GT2 


GT 




34 


RA 


ES6 


ES7 




35 


MP 


ES7 


GP5 




36 


AT 


ES10 


ES10 




.37 


TP 


ES12 


A } 
OP J 




r40 


ZJ 


XP41 


Partial 


41 


SA 


GP6 


17 \ 
XP45J 


Block 


42 


TU 


A 




43 


SP 


ES10 


17 | 
XP46J 




44 


TU 


A 




45 


RP 


30000 


XT471 




46 


TP 


30000 


GN J 



Number of lines of subroutine 



ES12 



Address of 1st line of subroutines 



fciblu 



If 30000> address, subroutine is in core* 
Otherwise, assumed to be in drum 

Test to see if subroutine has fewer than 
170 lines left 

Set-up u of XP13 to right address 
Transfer 170 lines of subroutines to GN 

Write block on tape 

Count of blocks 

Reduce ES12 to no. of lines left in subrtne. 
Increase ES10 to address of next line of sub- 
routine to be transferred 

Test for less than 170 lines in subroutine 

Number of blocks in subroutine — > ES7 
Remainder or number lines in last partial 

block to ES12 
Setting up parameter with correct number of 

blocks to be written on tape 



Setting up correct referencing address of 

parameter 
Writing blocks on tape 
Count of blocks 

Calculating number of lines written on tape 
Correcting ES10 address to that of next 

line to be transferred 
Test to see if any lines left to be written 

of subroutine 

Setting up u of repeat to proper value 

Setting up correct referencing address of 
next line of subroutine in XP46 

Putting remaining lines of subroutine in GN 
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47 TP 

50 SS 

51 TU 

52 RA 

53 TV 

54 RA 

55 RP 

56 TP 

57 TP 

60 RJ 

61 RA 

62 MJ 
CA 



GP5 

ES12 

A 

XP55 

ES12 

XP56 

10000 

GP2 

RC4 

GT2 

ES6 



XP63 



} 



Setting up u of XP55 such that remainder of 
GN is filled with right number of lines of 
Z's 

Setting up v of XP56 so that Z lines start 
at right place in GN 



A 

17 

XP55 

GP4 

XP56 

RC3 

300001 Fillin 9 U P GN witn Z ?s 

GT3 Parameter word -> generalized tape handler 

GT To tape handler 

GP10 Count of blocks 

OP Exit 



IA 
71 





71 





4 



CA 



RC 
00105 



00104 





RC5 



NP 

NP 
GN 
GN 





Parameter word to write 1 block on tape 5 

from NP 
Address of 1st line of Op File storage 
Tape 4 parameter write from GN 
Address of 1st line of storage used for a 

partial block of a gen. routine 
Parameter temporary used for writing from GN 

to either tape 4 or tape 7 



IA 
01 



31 

74 













10 

11 01 

12 67 

13 01 

14 01 

15 01 
CA 



GP 

01015 

34463 

74747 



10000 









65672 

66345 

31344 

66245 

01323 

GP16 



15201 

00104 

47474 

77777 



170 

30000 



1 

55451 

03065 

63001 

23001 

05001 



AAA PA 
F I L E A 1 



Line of 
Mask 



Z's 



A S U B R 

U T I N E S 

AF I L E A 

AT A P E A 

AA G E N A 
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12 



Op Control Subroutine-Sequential Uses 
of Temporary Storage (ES) 



Number of lines in NP t buffer region in which Op Files are accumulated 
for writing on tape. 

Number of lines in current Op File being stored. 
..Number of lines remaining to be stored from current Op File. 



2 Used to accumulate ES + ESI. 
3 



ES ->ES3 

(ES3 + NP) — ^ES3, giving the address in NP to which next line is to 

be transferred. 



4 Number of lines put in NP from current Op File the last time a group of 
lines was transferred. 

5 Number of blocks of Op File 1 written on tape. 

6 Number of blocks of subroutines written on tape. 

7 Number of whole blocks of subroutines to be written on tape. 

10 Address of next line of subroutine to be written on tape. 

11 Address of next line of Op File to be transferred to NP. 



{Number of lines of subroutines. 
Number of lines of subroutine in last block. 
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OP CONTROL SUBROUTINE - RG ROUTINE 

To Insert Vary Call Word in Exit Line of Last Statement of 
Range and in the Op File I Item 



© 



® 



© 





IA 


RG 





MJ 





1 


TU 


0P1 


2 


TP 


RG62 


3 


QT 


30000 


4 


TJ 


RG63 


5 


TJ 


RG64 


6 


MJ 





7 


TJ 


RG65 


10 


TJ 


RG66 


11 


MJ 





12 


TP 


RG62 


13 


TU 


VF 


14 


TU 


RG70 


15 


TP 


BKl 


16 


RP 


30000 


17 


EJ 


30000 


20 


SP 


RG16 


21 


LQ 





22 


TU 


Q 


23 


SS 


Q 


24 


SA 


RG17 


25 


TU 


A 


26 


TU 


A 


27 


TU 


A 


30 


LQ 


0P1 


31 


TV 


Q 


32 


RA 


RG33 


33 


TV 


30000 


34 


TP 


RG71 


35 


QJ 


RG56 


36 


SP 


0P1 


37 


TU 


A 


40 


TU 


A 


41 


TU 


A 


42 


TU 


A 


43 


SP 


30000 


44 


SA 


RG64 


45 


TU 


A 


46 


RS 


0P1 


47 


TV 


A 


50 


SA 


30000 


51 


TV 


A 


52 


RA 


30000 



30000 
RG3 

Q 

A 

RG7 

RG12 

RG 

RG 

RG12 

RG 

RG71 

RG16 

RG17 

A 

RG \ 

RG20J 



17 

RG16 





RG17 

RG33 

RG56 

Q25 

RG33 

RG67 

30000 

Q 

RG36 

17 

RG431 

RG50 

RG52 

RG54J 

17 



RG53 

GP10 

RG54 

° } 
RG60J 

GP10 



} 



Exit 

Set address of routine into RG3 

u-mask — > Q 

Routine CW -> A 

27000 >CW? 

No j 30000 >CW? 

No; so out 

22000 >CW? If so, out 

No; 23000 > CW? 

No; so out 

Set QJ indicator bit = 

CW = 22 or 27 

Set EJ initially 

Sentence number — > A 

Check for matching sentence number in 

Vary File 
jn-> Ar u 
jn — r->Q u 
Set RP for Continuing Search 

r ~> ARu 

Add r to Starting Point of Previous Search 

Reset EJ to continue search at next word 

Set address of Vary CW in transfer command 

Set Vary CW address in shift command 

Address of routine — > Q v 

Set routine address in transfer command 

Set to address of exit line 

Transfer Vary CW to exit line of routine 

Determine if this Op File I item has been 

changed before 

No r so enter Op File address in A u 



Enter Op File I address in commands 

Enter # words of item in A u 

Add j = 3 

Set into RP 

Decrease Op File I address in parameter 

Set transfer instruction to new address of 

Op File I item 
Set address for insertion of new cross 

reference 
Increase # words in Op File I item by one 
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53 RP 30000 RG55 I M n r .. T .. . 

54 TP 30000 30000J Move 0p Flle J ltem up 0ne locatlon 

55 TP RG RG71 Set QJ indicator bit = 1 
@ 56 SP 30000 17 Vary CW -» Ar 

57 TP RG62 Q u-mask -> Q u 

60 QT A 30000 Enter Vary CW as Cross Reference in Op File I 

61 MJ RG15 Back to continue search 

62 77777 

63 27000 

64 30000 

65 22000 

66 23000 

67 6 

70 VF1 

71 

72 CA RG72 
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CONSTANT CALL WORD ROUTINE FOR GENERATION 

At the start of string-out 00 20000 00000 is put in fixed address 10, 
which is a counter register for the number of constants. Both u and v of 10 
increase with each added constant. If n of 2,n n in 10 exceeds lOOOo, the 

computer stops with the alarm print-out — (Sentence ( ) Too Many 

Constants. 

Input constant goes to A and the instruction RJ CW CWl activates the 
routine. The call word output goes to Q and A . 

The routine occupies 36 fi lines in region CW. Region Cl t the list of 
constants, may occupy up to 1000 fl lines in the maximum-size problem. Needed 
for the alarm print-out is the UP print-out subroutine. 

If a constant is already in list CL r entry to the routine gives the call 
word by determination of its position. If a constant is not in the list, it 
is added to it and given the next call-word-number assignment. 
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Flow Chart ~ CW Call Word Routine of Constants - Generation 




03 



/is constant in\ No 
M Constant List? » * 



Yes 



Obtain position 
of constant 
in list 



JL 

© 



Add position to 
base 66777 to 
form call word 



Put call word 
in A and B 



Exit 




Up count in 10 
of length of 
Constant List 



Is list 
length 



<L 1000?. 



No 



Print Out: 
SENTENCE _ 

TOO MANY 
CONSTANTS 



Rewind tapes 
and stop 
computer 




Yes, 

— > 



Add constant to 
next position 
in list 



-© 



Call Word-Generation 







IA 


CW 









MJ 





30000 




1 


TU 


10 


CW2 




2 


RP 


30000 


CW7 \ 
CW4 J 




3 


EJ 


CL 




4 


SN 


Q 


17 




5 


SA 


10 







6 


MJ 





CW22 


When con- 


7 


TP 


A 


Q 


stant is 


10 


TV 


10 


CW20 


not in 


11 


RA 


10 


CW27 


list 


12 


TJ 


CW30 


CW17 




13 


RJ 


WA 


WA2 




14 


TP 


CW26 


UP3 1 
UP J 




15 


RJ 


UP2 




16 


MJ 





BQ6 


Adding 


17 


RA 


CW20 


CW36 


Constant 


20 


TP 





30000 


to list 


21 


SP 


10 


17 




22 


AT 


CW31 







23 


QT 


CW35 


Q 




24 


LQ 





25 




25 


MJ 





CW 




26 


40 


CW32 


3 




27 





1 


1 




30 





21001 


1001 




31 





66777 







32 


66 


51510 


14724 




33 


50 


73012 


65150 




34 


65 


66245 


6665 




35 





77777 







36 




CA 



CW37 


CL 



Exit 

Sets up u of repeat by using Constant List 
count in 10 

Checks to see if constant is in CL t Con. List 



C-j. -(n-r)] (V 
E-J.r-nJ + £j,nf u = r 



<V„ 



Constant -> q 

n -> v of CW17 

Counter 10 increased by 1 

Is Call List < 1000? 

Gets sentence number print-out 

Sends parameter to error print-out routine 
and gets print-out: Too Many Constants 

Jump to rewind tapes and computer stop rtne. 

(n + CL) -> v of CW20 

Constant added to next position in list 

n -> (A R ) u 

(r + 66777 )-> q . Call word in % 

Extraneous material in q destroyed via mask 
and QT. Call word formed in A 

Call word put in Q 

Jump to exit 

Parameter word used in print-out 

Used also as a constant in LS routine and in 
read generator 

Threshold check on size of CL 

Base number from which call words are de- 
termined by adding to position in list CL 

T A M A 

N YA C N 

S T A N T S 

Mask 

Address of 1st line of Constant List 
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Routine D to Get Call Word of Referenced Line 
Number from List IZ - Generation 



To use this routine, the referenced line number is put in A. Then in- 
struction RJ LW LWl will put the call-word output in A and Q . If a line 
number is not found in list IZ, the computer will stop with the error print- 
out: ALARM 2. COMPILATION INCONSISTENCY (POSSIBLE COMPUTER ERROR). RECOMPILE, 

If the call word of a line number is not found, the computer will stop with 

the error print-out: SENTENCE ( ) REFERENCED NUMBER 

IS NOT A PROGRAM SENTENCE. 
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Flow Chart - LW Generator Subroutine to Get Call Word of Referenced 
Line Number From Refer enced~Line~Number List IZ 




/'is referenced 
(line number in 

V li st? 



Yes 



o 



No 



Print-Out: ALARM 
2. COMPILATION 
INCONSISTENCY 
POSSIBLE COMPUTER 
ERROR. RECOMPILE 



Rewind all 
tapes and 

stop 
^computer 



Extract word fol- 
lowing line num- 
ber in list 




Is this word\No. 
zero? ' * 



Yes 



PRINT-OUT: 
SENTENCE 



NUMBER 



REFERENCED 



IS NOT AMONG PRO- 
GRAM SENTENCES 



Rewind all 
tapes and 

stop 
.computer 



Put this call 
word output in 
A u &Qv 




'Exit 



Generation — LW Routine to Get Call Word of Referenced 
Line No. from List IZ — Routine D 



IA 
MJ 



TP 
TU 
RP 
EJ 
SN 
SA 
SA 



10 TU 

11 TP 

12 ZJ 

13 TP 

14 LA 

15 MJ 

16 RJ 

17 TP 

20 MJ 

21 07 

22 40 

23 

24 54 

25 50 

26 67 

27 

30 01 

31 66 

32 51 

33 65 

34 26 

35 65 
CA 



LW 



A 

11 

30000 

IZ 

Q 
n 

LW23 

A 

30000 

LW13 

A 

A 



WA 

LW22 



77777 

LW24 

IZ 

30313 

26302 

47253 



34650 

01240 

32542 

30506 

30227 

77777 

LW36 



} 



30000 

LW27 

LW3 

BR2 

LW5 

17 





LW11 

A 

LW16 

Q 

17 

LW 

WA2 

UP3 I 

CW15J 

77777 

11 



05430 

70150 

05401 



15051 

15254 

44701 

63050 

77777 

77777 



Exit 

Entry. Storing line no. for possible print-out 
Setting up repeat via Reference List Counter 
Search for line number in Line No. Call 

Word List 
- Q, (n-rD = -j\ Cr-n) 

[-J. (r-nT| + [j.n] = r 
r + IZ -> A u 

Setting up u of next instruction 
Call word of line no. — > A v 
Test if call word is there 
Call word — > Q v 
Call word — > A u 

Sentence no. Print-Out 

Referenced No. — Is not a Program Sentence. 

Jumps to computer stop after rewind tapes 

via CW routine portion 
Used as a mask in IS routine 
Parameter for Print-Out 
Address of 1st line of line no. list 
R E F E R E 
N C E D A N 
U M B E R A 

A I S A N 
T A A A P R 
G R A MA 
S E N T E N 
C E . 
Unused 
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Line Number Check Routine C — Generation 

Instruction RJ HI HI1 activates this routine without input. The routine 
picks out the line number of the sentence under surveillance from buffer region 
BK and checks to see if this number has previously been put in Line Number 
Reference List IZ. If an equality is found, a check is made to see if the call 
word of the line number has been put in the address following the line number 
in IZ, If not r the call word of the line number is obtained from the buffer 
region and inserted in the v part of this location. 
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Flow Chart for Routine C Generation - HI Reference-List Line-Number Checking Routine 




(Is line number in 
reference list IZ? 




Yes 
— >| 



Extract word fol- 
lowing line number 
in list IZ 



Is this linev 



zero? 



No 



Exit 




l£J0 



CO 



dH l 



s call word of sen- 
ence in u position? 



No 



Yes 



Put call word into line 
following referenced 
line number in list 



Put call word into line 
following referenced 
line number in list 



Exit 




Shift call word in 
list until it is in 
v position 




Reference-List Line-Number Checking Routine C-- Generation 





IA 


HI 







MJ 





30000 


1 


TU 


11 


HI3 


2 


TP 


BK1 


A 


3 


RP 


30000 


HI | 
HI5 J 


4 


EJ 


IZ 


5 


SN 


Q 


17 


6 


SA 


n 





7 


SA 


HI26 








TU 


A 


HI12 



11 LQ HI12 



Q25 



12 


TP 


30000 


A 


13 


ZJ 


HI 


HI14 


14 


TP 


BK3 


A 


15 


TJ 


HI27 


HI23 


16 


TV 


Q 


HI17 


Call word 








of sentencel7 


TU 


BK3 


30000 


is in u po- 








sition 20 


TU 


HI12 


HI21 


21 


U) 


30000 


25 


22 


MJ 





HI 


23 


TV 





HI24 


Call word 24 


TP 


BK3 


30000 


in BK3 is 25 


MJ 





HI 


in v po- 26 





IZ 





sition 27 





1 







CA 


HI30 





Exit 

Sets up u of repeat by counter 11 

Line no. to A 

Is line no. in reference list IZ? 

-j» (r-n) 

J. n+[-Jr (r-n)] = r 

r + IZ-» A u 

Sets up instruction to get call word of line 

number to A 
Puts address in Q^ of line that should have 

call word 

Exit if a call word is there 

Call word of sentence to A 

Is [0 1 0U>(BK3). If so, call word is in v 

Sets up right ref.-list address in v of next 

instruction 
Call word to line following line no. in ref. 

list 
Sets up same ref.-list address in next 

instruction 
Transfers call word to v position 

Puts address into v of next instruction 
Call word to right line in ref. list 
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KI Illegal Line Jump Check Routine — Generation 

After a call word has been obtained for a line number, it should be put 

in A (the rest of A must be cleared) for this test. (The reqular call word 
u 

output of LW gives the call word as desired in A . ) In Q should be a pseudo- 
operation indicator. 40 indicates that a sentence is within a pseudo 

nn 7.f>m inrfinatps hpinrr niitsirfp a nsPuHn On Now i nst.rnrt. i nn R.T KT KTl 
»r' — — " — >--~ — — ~ — - — a ~ — ~-~~ — r — — ~.~ »)<• "** — — 

will activate this routine. 

Four error print-outs occur for attempted illegal jumps. All are prefixed 
by SENTENCE 

1) JUMP TO SENTENCE OUTSIDE PSEUDO OP FROM WITHIN PSEUDO OP IS NOT 
PERMITTED. 

2) JUMP TO PSEUDO OP LINE FROM OUTSIDE PSEUDO OP IS NOT PERMITTED. 

3) JUMP FROM ONE PSEUDO OP TO ANOTHER IS NOT PERMITTED. 

4) JUMP TO HEADING OF PSEUDO OP IS NOT PERMITTED. 

The computer stops after each of these print-outs and all tapes are re- 
wound. 

The call word comparisons within the routine are based on the convention 
that all sentences within a pseudo op f except the first, have a call word less 
than 23000 and all sentences outside a pseudo op have a call word greater than 
22777. The call word of the first line or heading of a pseudo op is 40000 plus, 
Only the compute instruction may reference this line. A list JN of 2nd line 
pseudo-op call words is used to check illegal jumps from one pseudo op to 
another. 
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KI Illegal Line Jump Check Routine - Flow Chart 

Line No, Call Word Input in A —Pseudo-Op Indicator in Q 




Is 400008 > call word\ y e s 
of line no.? ' ^ 



No 



Print-Out: SENTENCE 

JUMP TO 

HEADING OF PSEUDO OP 
IS NOT PERMITTED, 




Rewind of all 
tapes and com- 
puter stop 



Is sentence in 
pseudo operation? 



Yes 



Is 23000g > call 
word of line no,? 



jej 



© 



No 



Is call word of 
line no. > 22777? 




No 



Print-Out: SENTENCE 

JUMP TO PSEUDO 

OP LINE FROM OUTSIDE 
PSEUDO OP IS NOT 
PERMITTED, 



No 



Print -Out: SENTENCE. 
JUMP TO SENTENCE OUT- 
SIDE PSEUDO OP FROM 
WITHIN PSEUDO OP IS 
NOT PERMITTED* 



& 



& 



Using JN List of call words 
of pseudo op second lines, 
obtain information on the 
pseudo op to^ which the jump 
is being made. 



Using JN list, obtain 
information on the 
pseudo op from which 
jump is being made 



No 



Print-Out: JUMP FROM 
ONE PSEUDO OP TO 
ANOTHER IS NOT PER- 
MITTED* 



rAre the 2 pseudo ops\ Yes \^Exit^ 
the same? r~^ 



<D 



Outside 
pseudo-op 



KI Illegal Line Jump Check Routine — Generation 

Line No. Call Word Input in A u 
Pseudo-Op Indicator in Q 



IA 

MJ 

1 TP 

2 TJ 



TP 
RJ 
TP 
RJ 

MJ 



Call word 10 QJ 

< 40000 11 TJ 

within 12 TP 

pseudo-op 13 MJ 



14 TP 

15 TP 

16 TJ 

17 TP 

20 RJ 

21 TP 
Within 22 MJ 
pseudo-op 23 TU 



24 RP 

25 TJ 

26 TP 

27 TU 

30 SP 

31 RP 

32 TJ 

33 TP 

34 EJ 

35 TP 

36 RJ 

37 TP 

40 MJ 

41 TP 

42 MJ 

43 TP 

44 BfrJ 

45 



KI 



BK1 

KI54 

KI46 

UP2 

KI51 

UP2 



Kill 

KI52 

KI45 



A 
KI53 

Q 

KI46 

UP2 

KI47 



JN 



20000 

JN1 



JN 

BK3 

20000 

JN1 

KI126 



KI46 

UP2 

KI50 



JN 



JN 



KI55 



30000 

KI57 

KI10 

UP3 

UP 

UP3 

UP 

BQ6 

KI14 

KI23 

UP3 

KI6 



} 





A 

KI 

UP3 

UP 

UP3 

KI6 

KI24 



KI411 
KI26 
KI126. 
KI31 



17 

KI43 

KI33 

A 

KI 



\ 



UP3 

UP 

UP3 

KI6 

KI126 

KI27 

Q 

KI33 

20 



Exit 

Line No. to Print-Out Storage 

Is 40000> call word of line no,? 



Sentence 



A Jump A 



To heading of pseudo-op is not permitted 

Jump to rewind of servos and computer stop 
Is sentence within pseudo-op? 
Is 23000>call word of line no.? 
Sentence Jump to sentence outside 

pseudo op from within pseudo op is not 

permitted 

Line no. call word 

u 

Is line no. call word > 22777? 



Sentence 



Jump 



To pseudo op sentence from outside pseudo op 
is not permitted 

Setting up u of next instruction for com- 
parison of line no. call word with list 
JN of pseudo op 2nd lines 

Purpose of comparison is to find via Q to 
which pseudo op jump is being made 

Setting up u of instruction to number within 

JN list plus 20000 
Getting call word of sentence to u of A 
Determining via Q in which pseudo op we 

are operating 
If pseudo op in which we are operating is 

the same as pseudo op to which we are 

jumping, Q and KI126 will be equal 

Sentence Jump 

From 1 pseudo op to another is not permitted 



Parameter for Sentence 



Jump to Sentence 



outside pseudo op from within pseudo op 
is not permitted 
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46 

47 40 



KI55 
KI75 



50 40 KI107 



51 40 KI117 



52 

53 

54 

55 65 

56 26 

57 

60 01 

61 66 

62 66 

63 51 

64 30 

65 27 

66 31 

67 34 

70 52 

71 01 

72 01 

73 52 

74 66 

75 66 

76 67 

77 01 

100 31 

101 67 

102 01 

103 51 

104 65 

105 52 

106 66 

107 01 

110 51 

111 30 

112 52 

113 50 

114 01 

115 66 

116 34 

117 66 

120 27 

121 31 

122 27 

123 34 

124 01 

125 66 

126 
CA 



23000 

22777 

40000 

30506 

30017 



44674 

51016 

30502 

67666 

01526 

51015 

54514 

66333 

65306 

51520 

50516 

30544 

30272 

51015 

27510 

46345 

54514 

66653 

52653 

01515 

01505 

30544 

30272 

31545 

50300 

67275 

01665 

51663 

34650 

01523 

66663 

51013 

34503 

01526 

51015 

65015 

52305 

66302 



KI127 



4 
12 

10 

7 







63050 

77777 



75201 

53050 

63001 

53427 

53067 

15201 

70171 

45001 

72751 

13465 

60101 

73466 

27777 

26530 

15152 

03001 

70151 

42730 

06727 

20134 

16601 

73466 

27777 

14701 

15265 

10151 

10124 

33054 

15051 

05447 

02722 

33024 

20151 

53067 

15201 

05166 

44734 

72277 





Parameter for Sentence 



Jump 



Parameter for to pseudo op sentence from 

outside pseudo op is not permitted 

Parameter for from one pseudo op to 

another is not permitted 

Parameter for to heading of pseudo op is 

not permitted 



S E N T E N 
C E A 



A J U 
T A 
TEN 
OUT 
E A P 
D A 
FRO 
I T H 
P S E 
A P 
AN 
PER 
TED 
T A 
U D 
A L I 
R 
T S 
P S 
AO 
SAN 
PER 
TED 
AFR 
ONE 
E U D 
PAT 
NOT 
A I S 
TAP 
T T 
OA 
I N 
AP 
D A 
ISA 
APE 
T T E 



F 
U 
A 



M P A 
SEN 
C E A 
SID 
S E U 

P A 
MAW 

1 N A 
U D 
A I S 
T AA 
MIT 

PSE 
A P 
N E A 
MAO 
IDE 
E U D 
PA I 
OTA 
MIT 

M A 
APS 
A 
A A 
HER 
A N 
E R M 
E D . 
H E A 
GA 
S E U 
P A 
NOT 
R M I 
D . 
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LS Library List Routine - Generation 

The list LN built up on the drum starting at 50046 during Generation is a 
list of call words of library routines referenced. 

Each call word is stored in the u position. Call words less than 50200 
designate Permanent Library Routines. Call words > 50200 designate library 
routines which have been put on the library tape on Uniservo 2 by the Librarian. 

LS Library List Routine distinguishes between the two types of library 
routines referenced and by means of two one-shot switches puts an indicator 
into counter 5 the first time each of the types is used. If a Permanent Library 
Routine has been referenced, 40 is put into the operation portion of counter 5. 
If a library routine from Uniservo 2 has been referenced, 20 is put into the 
operation portion of counter 5. Of course, when both types have been referenced, 
60 is in the operation portion of 5. 

The input to the routine is the call word of the library routine in A . A 
search is made of the list to see if that call word has previously been put 
in. If it is already there, a quick exit occurs. If it is not there, it is 
put in the list at the next empty space and counter 5 is increased by 00 00001 
00001 to wO 2000n n where w is the indicator mentioned above and n is the 
cumulative number of call words in the list. Before the exit, a check is made 
to see if n is less than 100. If it is not, the following print-out occurs: 
SENTENCE ( ) TOO MANY LIBRARY ROUTINES. 

The blanks in this print-out are filled in, respectively, by a line number 
and the sentence type. Of course, if this improbable print-out occurs, all the 
tapes are rewound and the computer stops. 
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Flow Chart for Generation IS Library List Routine 




o 
o 
o 



Is 50200 > call worcf 
of library routine? 



Yea 



1-shot switch* 

Has this path beei 

traversed before ?> 



No 



No 



1-shot switch* Has 
this path been tra- 
versed before? ^ 



Yes 



Yes 



Puts indicator into 
counter 5 that 
a permanent library 
routine has been 
referenced 



•& 



No 



Put indicator into 

counter 5 that a 

library routine 

on Uni servo 

2 has been referenced 



d> 



Rewind all tapes 
and stop computer 



*© 




Is library routine 
call word in list LN 



No 



Put call word of 
routine into library 
list LN 



Up counter 5 of li- 
brary list routines 




Is library list 
length > 99? 



Yes 



Print-Out: SENTENCE 

r ) too 

MANY LIBRARY ROUTINES 



Library List Routine — Generation 
Input Call Word in A u 





IA 


LS 







MJ 





30000 


1 


TP 


A 


Q 


2 


TJ 


LS40 


LS7 


3 


RJ 


LS3 


155 


4 


MJ 





LS12 


5 


CC 


5 


LS42 


6 


MJ 





LS12 


7 


RJ 


LS7 


LS11 


10 


MJ 





LS12 


11 


CC 


5 


1541 


12 


TP 


Q 


A 


13 


TU 


5 


LS14 


14 


RP 


20000 


LS16 1 


15 


EJ 


LN 


LS J 


16 


TV 


5 


LS20 1 


17 


RA 


LS20 


LS37 


20 


TP 


Q 


30000J 


21 


RA 


5 


CW27 


22 


TP 


LW21 


Q 


23 


QT 


5 


A 


24 


TJ 


LS36 


LS 


25 


RJ 


WA 


WA2 ' 


26 


TP 


LS30 


UP3 


27 


MJ 





CW15 . 


30 


40 


LS31 


5 


31 


66 


51510 


14724 


32 


50 


73014 


63425 


33 


54 


24547 


30154 


34 


51 


67663 


45030 


35 


65 


77777 


77777 


36 





C 120000 


CI 


37 








LN 


40 





50200 





41 


40 








42 


20 










CA 


LS43 





Exit 

Call Word -> q 

Is 50200 > call word? If so, a Permanent 

Library Routine is being referenced 
Call word is > 50200 

Puts indicator that library routine from 
Uniservo 2 is being referenced into 5 



Puts indicator that a Permanent Library 
Routine has been referenced into 5 

Call Word — > A 

Sets up u of repeat so that library list 
may be compared 

If library routine is already in list, go to 

exit 
Putting library routine call word in list 

LN when it has not been found there 

Adding 1 1 to counter 5 

Putting mask 07 77777 77777 into q 

Masking indicator bits out of 5 for transfer 

to A as 2000n n 
Is 00 20100 00100 > A. Thus n, number of 

routines, must be < IOOiq 

Print-Out: SENTENCE ( ) TOO MANY 

LIBRARY ROUTINES. Rewinds tapes and stops 
computer 

Parameter for print-out 

T A M A 

NYALI B 

R A R Y AR 

U T I N E 

S 

Threshold for number of library routines. 

CI = IOOiq 
Address of 1st line of library list 
Call word of 1st non-permanent library 

routine 
Indicator that a Permanent Library Routine 

has been referenced 
Indicator that Uniservo 2 Library Routine 

has been referenced 
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Routine for Conversion of Excess-Three to Flex Code 

Three regions — VX ( 154g addresses), FC (IOOq addresses), and VE (6 ad- 
dresses) — comprise the total 262 fi needed for this routine. 

The parameter input line, VX4, holds the address of the first line of input 
in the u portion. In the v portion is given the number of words of input. If 
every other line starting with the first address is to be selected as input, 
40 is put in the operation code of VX4. If every line following the first 
address is to be used, 00 is put in the operation code. 

In the u portion of VX3, the desired address of the first line of output 
should be supplied. V of VX3 must be zero before entering routine. The 
routine when operated by instruction RJ VX2 VX will supply in the v portion of 
VX3 the number of words of output. The Flex code output is packed from the 
left with the necessary added shift-up or shift-down Flex codes. 

Every excess-three character from 00 to 76 has a corresponding Flex code 
or set of Flex codes assigned to it as shown on the accompanying table. 77, 
though assigned Flex code 77, is not stored in the output. 

Because of the addition of shift-up and shift-down Flex codes and the 
fact that some excess-three characters are represented by more than one Flex 
code, greater storage space must be allowed for the output than is needed for 
the input. 

In the table the first digit of each Flex code representation is not stored 
in the output. It is used only to distinguish between lower-case and capital 
letters. A 4 in the first position indicates lower-case; indicates capital. 

A basic assumption in this routine is that the characters on the Flexo- 
writer are in the standardized form shown in Table I on page 15 of PX38, (Input 
and Output Systems - Univac Scientific). Any changes made on the Flexowriter 
keyboard from this standard will cause erroneous results in the print and type 
instructions of UNICODE. 

The keyboard of the Unityper is assumed to be in accordance with the changes 
proposed on the two pages following the code table. See Chapter 8, Tape 
Preparation, of the UNICODE Manual for an explanation of a system of bypassing 
this requirement of an altered keyboard. 
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Excess Three to Flex Code Table 

Excess Three Excess 

Character Where Three Flex Char- 
Different Code Code acter 

056 

1 004 Space 

9 /ICA 

3 437 

4 452 1 

5 474 2 

6 470 3 

7 464 4 

10 462 5 

11 466 6 

12 472 7 

13 460 8 

14 433 9 
/ 15 054 / 

16 413 01 12 gtr 

17 046 ( 

20 070 \a 

21 446 

22 442 

23 446 

24 030 A 

25 023 B 

26 016 C 

27 022 D 

30 020 E 

31 026 F 

32 013 G 

33 005 H 

34 014 I 

35 062 



> 



< 



36 060 \8/ 

37 411 24 12 Isr 
1003 



Excess Three to Flex Code Table (Cont.) 



Excess Three 


Excess 






Character Where 


Three 


Flex 


Char- 


Different 


Code 


Code 


acter 




40 


074 


Ng/ 




41 


064 


\3/ 




42 


450 


1 




43 


042 


) 




44 


032 


j 




45 


036 


K 




46 


Oil 


L 




47 


007 


M 




50 


006 


N 




51 


003 







52 


015 


P 




53 


035 


Q 




54 


012 


R 




55 


066 


N/ 


* 


56 


427 61 54 


* 




57 


033 


M/ 




60 


037 


NK 




61 


052 


\i/ 




62 


044 


\/ 




63 


454 


+ 




64 


054 


/ 




65 


024 


s 




66 


001 


r 




67 


034 


u 




70 


017 


V 




71 


031 


w 




72 


027 


X 




73 


025 


Y 




74 


021 


Z 




75 


072 


\j/ 




76 


444 


= 




77 


077 


Ignore 
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Proposed Unityper Changes 





PRESENT 






PROPOSED ADDITIONS 




PULSE CODE 


NAME 


SYMBOL 


NAME 




SYMBOL 


00 0000 


Ignore 


i 


Superscript 


minus 


- 


00 1101 


Apostrophe 


t 


Superscript 


slash 


/ 


00 1110 


Ampersand 


& 


Greater than 


i 


> 


01 0000 


Carriage returr 


i t 


Superscript 


three 


3 


01 1101 


Number 


» 


Superscript 


five 


5 


01 1110 


Cent 


t 


Superscript 


eight 


8 


01 1111 


At one 


@ 


Less than 




< 


10 0000 


Tab 


t 


Superscript 


two 


2 


10 0001 


Quotation 


w 


Superscript 


four 


4 


10 1101 


Dollar 


$ 


Superscript 


six 


6 


10 1111 


Question 


? 


Superscript 


nine 


9 


11 0000 


Sigma 


2 


Superscript 


zero 


O 


11 0001 


Beta 


£ 


Superscript 


one 


1 


11 0010 


Colon 


• 


Superscript 


decimal point 


• 


11 1101 


Per cent 


% 


Superscript 


Seven 


7 
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© 














© 







© 7 



© 














o 
o 





0000 


0001 


0010 


0011 


0100 


0101 


0110 


0111 


1000 


1001 


1010 


1011 


1100 


1101 


1110 


mi 


00 


_* 


A 


- 


© 


1 


2 


3 


4 


5 


6 


7 


8 


9 


/* 


>** 


( 




i 




i 




& 


01 


3* 


t 


• 


♦ 

t 


A 


B 


C 


D 


E 


F 


G 


H 


I 


5* 




8* 


<** 




i 




# 




i 






10 


2* 




4* 


1 


) 


•J 


K 


L 


M 


N 





P 





R 


6* 


# 


9* 




i 




ti 




$ 




? 


11 


0* 




1* 


• * 


+ 


/ 


S 


T 


U 


V 


W 


X 


Y 


Z 


7* 




V 




2 




fi 




: 




% 




— 


/ 





* Superscript symbols 
** New symbols 



Excess Three To Flex Code Subroutine Flow Chart 




Has input been 
^ used up? 



No 



Yes 



Put input word in 



* working storage 



Pack to left 
and store last 
line of output 




Exit 



© 



Convert excess 
three character of 
word to a set of 
Flex code 
characters 




©-* 



RJ switches to provide Flex 
shift ups (47) or shift downs 
(57) only when a change in Flex 
code sets is made from caps 
to lower case, and vice versa 



© 



Pack a Flex code 
in working storage 
output line. 



Store output line 
and up count 




Yes 



6-point RJ distrib- 
utor to check if an 
output line is filled 



© 



Have all excess -3 
N° 'characters of an in- 
put line been used? 



Yes 





Excess-Three to Flex Code Subroutine 



VX3 



VX4 = 



IA 

MJ 

1 RJ 



MJ 


TP 



6 RP 

7 TV 

10 TV 

11 TV 

12 TV 

13 TP 

14 TP 

15 TP 

16 QJ 

17 TP 

20 MJ 

21 TP 

22 TV 

23 TU 

24 TU 

25 LQ 

26 TV 

27 IJ 

30 MJ 

31 TP 

32 LQ 



34 TP 

35 QA 

36 

37 EJ 

40 LA 







Must be set at zero 
before usina subroutine 




Address of 1st 
line of output 


No. of words of 
output 



00 if 


Address of 1st 


No. of words 


every 


line of input 


of input 


line. 40 










if every 






other 






line 







VX 











VX152 

10005 

VX141 

VX140 

VX136 

VX137 

VX150 

VX150 

VX4 

VX17 

VX153 



VX147 

VX4 

VX4 

VX3 

VE3 

VE3 

VE 



30000 

VE4 



33 LQ VE4 



VX142 
VX143 

VX151 



} 



VX5 



30000 





VE5 

VX10 " 

VX65 

VX72 . 

VX4T1 

VX54 J 

VE 

VE1 

Q 

VX21 

VE2 



VX22 

VE2 

VE 

VX31 

VE3 

25 

VX102 

VX31 

VX121 

VE4 

17 



} 




Entry 
Exit 



Set up input line character index 
Set up n-point distributor 
to beginning values 

Set up to insure that the output will start 

with either a shift up or shift down 

47 57 
Clear 2 addresses of working storage 

Parameter VX4 -> q 

Test to see if 40 is in operation code of q 
CO 2 OD ->VE2 to enable input address to be 
incremented so every other line is taken 



CO 1 0D-^VE2 

Number of words of input — ■ 
Address of 1st input line- 
Address of 1st output line 



VE 

u of VX31 

> v of VE3 



44 



Address of 1st output line— >v of VX102 
Index jump for number words of input 

Line of input -» VE4 

Initial shift of input line so 1st character 

will be in proper position 
Puts character XY to be masked out in right 

side of u of VE4 
CSP fc 0] + CO XJ. 0]->CSP fc + xy Oj 
->VX36 

If Flex code picked up is a 77* storing part 

of routine is bypassed 

A — > A 
A R rt L 
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41 SJ VX42 



VX45 



42 


LA 


A 


3 \ 


43 


SS 


A 


J 


44 


MJ 





VX47 


45 


LA 


A 


3 


46 


MJ 





VX54 


47 


RJ 


VX54 


VX55 


CA 


D T 


trvc a 


trvco 


0>V 


IV U 


VAJ4 


VAJi 


51 


MJ 





VX73 ^ 


52 


SA 


VX145 





53 


MJ 





VX60 f. 


54 


RJ 


VX47 


VX50 


55 


RJ 


VX47 


VX57 


56 


MJ 





VX73 ^ 


57 


SA 


VX144 


^ 


60 


LQ 


VE1 


6 


61 


SA 


VE1 





62 


TP 


A 


VE1 . 


63 


SS 


A 





64 


RJ 


VX64 


VX65 " 


65 


RJ 


VX64 


VX101 


66 


RJ 


VX64 


VX101 


67 


RJ 


VX64 


VX101 ■ 


70 


RJ 


VX64 


VX101 


71 


RJ 


VX64 


VX101 


72 


MJ 





VX102 . 


73 


LA 


A 


6 


74 


LQ 


VE1 


6 


75 


SA 


VE1 





76 


TP 


A 


VE1 


77 


SS 


A 





100 


MJ 





VX64 . 


101 


ZJ 


VX73 


VX115 


102 


TP 


VE1 


30000 


103 


SA 


VX102 


1 


104 


SA 


VX146 





105 


TP 


A 


VX102 J 


106 


SS 


A 





107 


TP 


VX150 


VE1 


110 


SA 


VX3 





111 


SA 


VX146 


o 


112 


TP 


A 


VX3 


113 


SS 


A 





114 


MJ 





VX101 


115 


IJ 


VE5 


VX33 



116 TP VX152 VE5 



Test if character Is lower case. Negative 

means lower case 
Left shift and split subtract to eliminate 

4 from Flex code representation 
Jump to switch 
Left shift to properly position Flex code 

at far left of Al 
Jump to switch 
EntryiSwitch to provide shift ups and shift 

downs in output only when a change is 

made from lower case to caps or vice versa 

Exit, No action. 

Exit. 
Entry. ^ 

Exit - no action. 

Exit. 

When Switch has provided a 47 or 57 to be 

inserted in VE1, these three steps pack 

the Flex code into the output line 
Clears Ar 
N-Point 
Distributor used to 

determine when each 

output line has received 

its six Flex code characters 



A no-action exit from the Switch causes sub- 
routine to transfer the Flex code character 
to the output, following which Ar is cleared, 
and a jump is made to the n-point distributor 



When a = 0?, an excess-three character has 

had its Flex code set used up 
Completed output line is stored 

v of instruction VX102 is increased by 1 



Clears Ar 

Output line is cleared 

Number of words of output is increased by 1 



Index jump to determine when a line of input 

has been exhausted 
Index is set up for next input line 
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117 


RA 


VX31 


VE2 


120 


MJ 





VX27 


121 


TP 


VE1 


A *~~ 


122 


ZJ 


VX123 


VX2 


123 


TV 


VX134 


VX72 


124 


RP 


10005 


VX126 


125 


TV 


VX135 


VX65 


126 


LQ 


VE1 


6 


127 


MJ 





VX64 


130 


TP 


VX102 


VX131 


131 











132 


RA 


VX3 


VX146 


133 


MJ 





VX2_ 


134 








VX130 


135 








VX126 


136 








VX55 


137 








VX50 


140 








VX102 


141 








VX101 


142 


SP 


FC 





143 





77 





144 








57 


145 








47 


146 








1 


147 





1 





150 











151 


07 


70000 





152 








5 


153 





2 







CA 


VX154 





VX31 is increased to take next line of input 
Jump back to input-word index 

r Test to see if output line is empty 

Setting up n-point distributor to handle 
last line of output 

r Loop of left shifting until elements in VE1 
are in leftmost position 

r Putting last line into output 

Completing count of output lines 
— Handling final line of output 



Constant (used also by Read Generator) 

Region FC of Flex codes is not shown here because it has previously been 
given in the section explaining the tables used in the translation phase. 

EXCESS-THREE TO FLEX CODE 
USES OF WORKING STORAGE VE 

,0 Index for number of words in input. 

1 For assembling output characters. 

2 To increment address from which input lines are taken. 

3 To assemble first address of output. 

4 To store line of excess-three characters while working on it. 

5 Character index per line of input. 
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3. GENERATORS 



3, GENERATORS 

The generators are described in the order in which they are loaded on 
the drum. See Generation Subroutine Regions in the preceding section for 
this order. 
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Start Generator Flow Chart 



o 



Entry> — » 


Generate prelude 
& MJ 30000 

MJ 01003 














Generate Op File 
I item 




Prelude & Op 
File I to tape 


'W 
















START GENERATOR SUBROUTINE 



RE 
RE 
RE 



PT2512 
PL5360 
FL2542 



RE 
RE 

IA 
MJ 



RP 
TP 
SP 
TU 
TP 
RP 
TP 



10 SP 

11 TU 

12 TP 

13 RJ 

14 MJ 

15 

16 

17 

20 

21 

22 

23 

24 MJ 

25 MJ 

26 

27 
CA 



OP 1047 
WL2242 

PT 


30010 
PT16 
WL3 
A 

WL1 
30002 
PT26 
WL3 
A 

PT15 
OP 


PL 








CO] 

PT30 



Generation subroutine 
Input to Generator 



30000 

PT3 

PL 

17 

PL 

PL5 

PT10 

FL 

17 

FL 

0P1 

0P2 

PT 

FL 

10 

2 









30000 

01003 

2 

2 



Exit 

Generate Prelude format 

Sentence call word to prelude 
Standard line no. 
Generate Op File I format 

Sentence call word to Op File I 



Exit 
Parameters 



Prelude format 



} 



Op File I format 
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Jump Generation Routine 

The string-out input to the Jump Generator consists of 6 lines. The first 
four conform to the standard format: number of words in string-out in v part 
of first line, line number in second line, title in third line, and call word 
of sentence in v part of fourth line. The fifth line contains the line number 
of the line to which the jump is to be executed. The sixth line contains 
40 if the sentence is within a pseudo op; if not, it is cleared. 

The Jump Generator builds up the Op File, prelude, and running program 
from this data. The first line of the generated running program is a dummy 
line, MJ 30000, put in to conform to the standard format of all generated 
running programs. In the v part of the second running program line is put 
the call word of the sentence to which the jump is to be made. Following 
this line is the ten line, 10 1, put in to ensure that the jump will be 
made to the second line of running program generated for the sentence. The 
first line of any running program has been standardized as the exit line of 
that segment of coding. 

Also put in the Op File is the call word of the line number to which the 
jump is to be made. 

A separate routine, KI, is used to determine if the jump is permitted. 
Jumps may be made within a pseudo operation only to other sentences that are 
also within the same pseudo op. Jumps may not be made from outside a pseudo 
op to sentences within a pseudo op. Jumps may not be made to the first line 
or initial heading of a pseudo op. 

As with other generation routines, the final instruction is the reference 
to the op routine which stores the Op File and writes the generated routine on 
tape. 
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Jump Generation Flow Chart 




Put call words of 
current sentence in 
Op File and prelude 



Finish building prel- 
ude by putting in 
line number 



o 



Getting call word 
of sentence to be 
jumped to and put- 
ting it in running 
program & op file 



Check if jump 
is illegal 



Write Op File, prel- 
ude, and running 
program on tape 



Exit 




Jump Generation 



RE 



JU2512 



Generation Subroutine regions are also needed to assemble 
this tape 





IA 


JU 







MJ 





30000 


1 


SP 


BK3 


17 


2 


TU 


A 


JU17 


3 


TU 


A 


JU22 


4 


TP 


BK1 


JU27 


5 


TP 


BK4 


A 


6 


RJ 


LW 


LW1 


7 


TV 


Q 


JU31 


10 


TU 


A 


JU21 


11 


TP 


BK5 


Q 


12 


RJ 


KI 


KIl 


13 


TP 


JU16 


0P1 


14 


RJ 


OP 


0P2 


15 


MJ 





JU 


16 





JU22 


JU17 


17 





30000 


3 


20 








2 


21 





30000 





22 





30000 


11 


23 








3 


24 











25 











26 











27 











30 


MJ 





30000 


31 


MJ 





30000 


32 


10 





1 




CA 


JU33 





} 



Call word of sentence to 1st line of Op 

File in u position 
Call word of sentence to 1st line of 

prelude in u position 
Line no. to prelude 
Getting call word of line number to be 

jumped to from ref. list 
Call word to v of running prog, jump line 
Call word to Op File cross reference 
Puts pseudo op indicator into Q 
Check to see if jump is permitted 
Writes Op File & prelude & running program 

on tape 

Exit 

Parameter for writing Op File & generated 
routine on tape 

Op File "dummy" lines 



Prelude "dummy" lines 



Running program "dummy** lines 
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If Generation 



The "if" string-out output VN - VN33, as described in the write-up for same, 
becomes the input BK - BK33 of this routine. KB, the control routine, generates 
the coding needed for obtaining the variables or constants to be compared. If 
X or Y is a subscripted variable, a relative constant call word (10000 or 10001) 
is assigned to it in the coding. The regular call word of X or Y is stored 
following the generated routine. The processor later replaces the 10000 call 
word with the address of this stored call word. The stored call word in turn 
is replaced by the address of the first line of the array of the variable. This 
obviates the necessity of the routine keeping track of where the call word of 
the variable has been put and putting this address relative to 1000 in wherever 
a reference is made to the variable. 

When X or Y is a pseudo op subscripted variable, this indirect method is no 
longer necessary. Because the pseudo op call word is a call word of a call 
word, the address is obtained by using it directly. 

KB uses KC routine to generate the coding needed for getting the right 
address of an item in an array of values of a subscripted variable. The number 
of subscripts of a subscripted variable must never be zero. The call word of 
the first line of an array is obtained by using the subscripts but giving them 
zero value. Operation of KC is based upon the following formula: 

1 [X(I,J,K,U] = 1 [X(0,0,O t O)] + [I-Mj + J-Mj + K-M K +' L] Modulus Z 

Z, the modulus, is the product of the number of values assignable to each 
subscript in the dimension statement. The subscripts vary from right to left. 
M K = *D w * iere *T) means t * le number of values retained for L as shown in dimension 
statement, viz: DIM X(I D , J^K^). Mj = K^. Mj = J^'l^- 
Z = Jn'Jn'Kn'^tr 1 [X(0, 0,0,0)] means the address of the variable whose 
subscripts are zero. Thus, it is the address of the first line in an array. 
It is located by use of the relative constants 10000 and 10001, as explained 
above. 

Thus the program divides the sum of the products and the value of L by the 
modulus Z. The remainder in A is added to the address represented by 
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1 [X(G t f 0,0)] to give the final address of 1 [X(I, J,K t L5]. This address is 

transferred to A where it is used in a TU instruction to set up a TP in- 
u 

struction that will put the variable into a temporary storage location, 60000 
for X and 60001 for Y. Following instructions give X and Y absolute or 
negative values, if desired. The processor changes 60000 and 60001 to assigned 
addresses. 

Coding for the tests needed is now generated. The threshold jumps that 
make the tests go to manual jumps within the coding. This is done to facilitate 
segmentation. In the v addresses of these manual jumps is put the call word 
of the line number to which the main jump is to be made. Following the manual 
jumps, "10 lines'* are put to ensure that the jump to coding of a sentence goes 
to the second line of the coding, the first line being an exit. 

Subroutine KD generates the test coding for the situation in which three 
line numbers of possible jumps have been supplied in the string-out input. 
Subroutine KF takes care of the case in which there are two line numbers and 
one test which divides X and Y into two exhaustive categories. Also taken 
care of in this routine is the situation in which two tests are requested but 
no third line number is given for a final jump in case both fail. In the latter 
instance, of course, the jump is made back to the beginning address, 1000, of the 
coding. From here, a jump is made to the second line of the coding for the 
subsequent sentence. 

Subroutine KK takes care of the case when just one test is made in an "if** 
sentence. In addition, a segment of it handles the details of termination and 
references the op routine to get the Op File and generated routine written on 
tape. 

KH consists of a group of subroutines which assist in all the functions 
described above. The Op File is stored and built up here. In its initial form 
KH57 holds 30000 2 in the first line of Op File. This line is not preset 
at the start of a use of the Generation Routine. Hence, it becomes necessary 
to transfer the generation coding afresh either from drum or tape prior to 
each use of it. The v of this instruction is added to as lines are filled in 
the Op File. One subroutine of KH keeps a count of the line of the running 
program relative to 1000 as it loads output region GL. This count, called 
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lOOx on "if** generation annotated coding, is used to compute jump addresses and 
to calculate total lines at end of "if" generation. 

Print-outs that may occur during "if** gene rat ion are those which accompany 
use of KI t the illegal line number check routine. (See separate write-up on 
KI. ) In a KH subroutine, the call word of the line number is obtained from LW, 
sent to KI for checking, and then put in the generated routine. (See reference 
list write-up for print-out that may occur in LW. ) 

i\R 11O iuS Cuno ban b© uscu aiiu i*u auius uuuiffiy ins nuu t iuiis inai arc Bioumea 

and assembled to make up the generated routine. 

Attached is an explanation of the use of temporary storage (addresses 
GL100 - 112), a descriptive format of first eight lines of GL output, and 
samples of generated coding. 
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Initial Lines of Output 



GL 
r 



Prelude ^ 



4 

v. 5 
Exit line 
of run- 6 
ning pro- 
gram 

7 



u v Call word of sentence to u of GL. v = lOOx - 

1000 + 6. Thus v is no. lines generated routine 
incl. **10 lines** and prelude. 

v v = lOOx - 1000, number of lines subject to 
address modification. 

20000 The 2 in 3rd digit from left is a count of 
temporaries used. Count of relative constants 
is in 4th digit from right. 

Number of inputs is zero. 

Number of outputs is zero 

Line Number Line number of sentence 

MJ v v = lOOx - number of **10** lines + 3. This gives 
a jump to 2nd line of coding of subsequent sent. 

Entry line of running program. 



GL 
100 

101 

102 
103 

104 

105 
106 
107 
110 

111 
112 



Temporary Storage for If Generation 



Where each new line of running program is 
assembled before insertion in output GL. 

lOOx Ordinal number of running program line relative 
to 1000 (**10 lines'* are included.) Always has 
next line to be used. 



Used in computing jump lines. 

Number of relative constants used. (10000 and/or 
10001) 

Call word of subscripted variable equated to 

10000. 

Call word of subscripted variable equated to 

10001 . 

Number of **10 lines" 



(BK15) 
(BK16) 
(BK17) 
(BK20) 



Holds, alternatively, the values in 
BK15 - 20 on X and BK25 - 30 on Y 
when these are subscripted variables. 
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IF GENERATION - SAMPLE CODING 
*Example 1 

NOT in Pseudo-Op List 

< First test 

> Second test 
For both X and Y: Sign complement desired 

Absolute value desired 
X and Y subscripted variables with 4 subscripts each 



1000 
1001 
1002 

1003 

1004 

1005 
1006 
1007 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1030 
1031 



GL 

1 
2 
3 
4 
5 
6 
7 

10 

11 

12 

13 
14 
15 
16 
17 
20 
21 
22 
23 
24 
25 
26 
27 
30 
31 
32 
33 
34 
35 
36 
37 



u 


20000 



Line Number 
MJ 
SP u 
MA u 



MA 

MA 

TJ 
DV 
SA 
TU 
TP 
TM 
TN 
SP 
MA 
MA 
MA 
TJ 
DV 
SA 
TU 
TP 
TM 
TN 
TP 
TJ 
EJ 



u 

u 
10000 

A 
30000 
60000 
60000 

u 

u 

u 

u 

u 

u 
10001 

A 
30000 
60001 
60001 
60000 
60001 
60001 



50 
42 
02000 
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' 

v 



= Call word of **IF W sentence line no, 



u = Call word of L subscript 

u = Call word of Mr = K multiplier 

v = Call word of K subscript 

u = Call word of Mj 

Call word of J 



1007 

Q 

17 

1011 

60000 

60000 

60000 



v 

v 

v 
1022 

Q 
17 
1024 
60001 
60001 
60001J 
A 

1033 
1034 



Call word of Mj 
Call word of I 
Call word of Z f 
Call word of Z. 



modulus 
modulus 



("Braced portion is coding to obtain X in 
\ proper form in 60000. 



Coding to put Y in proper form in 60001, 
Explanations of u and v are same as for 
X above. 



X -> A 
Is X < Y? 
Is X > Y? 



*The sentence from which this program was developed read as follows: If 
- \ x<i y j v MM < - I Y4i f j r k, 1H jwfflp "to- sentence 42, if - | X<i, j ,fc t !)[>- 
lY(i f j t k,l)| jump to sentence 54, if - | X(i, j , k, l) | = - |Y(i, j t k,l) | jump to 
sentence 4A. 
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1032 


40 


MJ 





V 




41 


10 





1 


1033 


42 


MJ 





V 




43 


10 





1 


1034 


44 


MJ 





V 




45 


10 





1 


1035 


46 








V 


1036 


47 








V 


1037 










1040 










1041 










1042 











v = Call word of line number of 2nd test. X > Y, 
v = Call word of line number of 1st test. X < Y, 
v = Call word of 3rd line number. X = Y. 

10000 equated to 1035 by processor, v = Call 
word of 1st line of X array. 

10001 equated to 1036 by processor, v = Call 
word of 1st line of Y array. 

Temporary storage. 60000 equated to this address 

by processor. 

Temporary storage. 60001 equated to this address 

by processor. 

1st line of program of next sentence (exit). 

2nd line of program of next sentence (entrance). 

Op File 



KH 



57 





u 


7 


60 








41 


61 





u 





62 





u 





63 





u 





64 





u 





65 





u 






u is call word of ""if* line number. 

lOOx - 1000 - "10 lines" + 2 temporaries. 

u is call word of X. 

u is call word of Y 

u is call word of 2nd test line number. 

u is call word of 1st test line number. 

u is call word of 3rd line number. 

The count kept in GL101 of the ordinal program number line relative to 

1000 is not the same as that shown above since it includes "10 lines'*. Proper 

deductions are made for this inclusion in computing the totals near the end of 
the program. 
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♦Example 2 

In Pseudo Op List with a Pseudo Op subscripted variable of 3 subscripts for X 

& 2 for Y 

< = Single test 

Only one line number (one for above test) 

Sign Complement of X desired 

GL 



33 



u = Call word of "If 11 sentence line number 





i 






25 




2 





20000 







3 













4 













5 


Line 


Number 




1000 


6 


MJ 





1027 


1001 


7 


SP 


u 


" 


1002 


10 


MA 


u 


V 



1003 



11 



MA 



1004 


12 


TJ 


u 


1006 


1005 


13 


DV 


u 


Q 


1006 


14 


SA 


u 


17 


1007 


15 


TU 


A 


1010 


1010 


16 


TP 


30000 


60000 


1011 


17 


TN 


60000 


60000. 


1012 


20 


SP 


u 


" 


1013 


21 


MA 


u 


V 


1014 


22 


TJ 


u 


1016 


1015 


23 


DV 


u 


Q 


1016 


24 


SA 


u 


17 


1017 


25 


TU 


A 


1020 


1020 


26 


TP 


30000 


6000L 


1021 


27 


TP 


60001 


A 


1022 


30 


TJ 


60000 


1000 


1023 


31 


MJ 





V 




32 


10 





1 


1024 










1025 











} 



X > Y 

u = Call word of K subscript 

u = Call word of Mj 

v = Call word of J 

u = Call word of Mj 

v = Call word of I 

u = Call word of Z, modulus 

u = Call word of Z t modulus 

u = Pseudo op call word of call word of X 

-This puts X into 60000 

u = Call word of J subscript 

u = Call word of Mj 

v = Call word of I 

u = Call word of Z, modulus 

u = Pseudo op call word of call word of Y 
-This puts Y into 60001 



Is X > Y? 

v = Call word of line no. of 1st test. X < Y. 

Temp storage 60000 equated to this address 
by processor. 

Temp storage 60001 equated to this address 
by processor. 



KH 



Op File 



57 





u 


3 


60 








26 


61 





u 






u = Call word of w If w sentence line number. 
Running prog, length including 2 temporaries 
u = Call word of line number of test 



: If - X(i,j,k) < = Y(i r j) jump to sentence 37A. 
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^Example 3 



< First test 

> Second test 

No 3rd line number 

X and Y are not subscripted variables. 



GL 



u 20 u = Call word of "if" sentence line number 

1 12 

2 20000 

3 

4 

5 Line Number 

1000 6 MJ 1013 X = Y 

1001 7 TP u 60000 u = Call word of X 

1002 10 TP u 60001 u = Call word of Y 

1003 11 TP 60000 A 

1004 12 TJ 60001 1007 Is X < Y? 

1005 13 EJ 60001 1000 Is X * Y? 

1006 14 MJ v v = Call word of line number of 2nd test. 

X > Y. 

15 10 1 

1007 16 MJ v v = Call word of line number of 1st test. 

X < Y. 

17 10 1 

1010 Temporary (60000) 

1011 Temporary (60001) 

1012 1st line of next sentence coding 

1013 2nd line of generated program of next 

sentence 



KH 



Op File 



57 





u 


4 


60 








12 


61 





u 





62 





u 






u = Call word of "if" sentence line number 

u = Call word of 2nd test line number 
u = Call word of 1st test line number 



*If X < Y jump to sentence 67, if X > Y jump to sentence 33A 
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Flow Charts for If Generation 



Line number to 6th 
line of prelude 



HJ 30000 to 1st 
line of object program 



Is X a subscripte< 
variable? 



Clear 4th and 5th 
lines of prelude 



TO 61_... NI 
to output 



00 20000 00000 
to third line 
of prelude 



Setups 




Is X a pseudo-op 
subscripted variable?/ 



Is X a dummy 
function? 



) 



Put call word of sub- 
scripted variable in 
Op File and up count 
of relative constants 
in prelude 



Put 10000 in u of stored 
line, 

*SA 30000 17 



Store call word of 
variable given 10000 
call word 



Cal 1 word to u of 
stored line: 
SA 30000 17 



TP call word 60000 
to output 



© 



Is absolute value 
of X desired? 



J 



TM 60000 60000 
to output 



3 



Is negative value 
of X desired? 



TN 60000 60000 
to output 



TU 61_.__ NI | Yes ( Is Y a dummy 

to output j V f unct i° n ' ? 



No / Is Y a subscripted 
variable? 



TP call word 60001 
to output 




o ( Is Y a 

constant? 



> 



No f Is absolute value of 
^Ydesirfed? 







TU 60001 60001 
to output 



3 



Is negative value 
of Y desired? 



W) 



TN 60001 60001 
to output . 



Subscript data to 
temporary storage 



Call word of modulus of 
array put in u of 
stored instructions: 

TJ 30000 30000 

DV 30000 q 




Up count of relative 
constants used 



Generation of coding 
for subscripted vari- 
able 



Reco form of generated coding used 
throughout in these flow charts for 
clarity. Actual instructions 
handled are in octal form. 



(' Is X a "\ 
constant? J 




TP 30000 60000 
to output 



Is Y a pseudo-op i 

subscripted variable?/ 



Put call word of sub 
scripted variable in 
Op File and up count of, 
relative constants i 
prelude 



Have any relative 
constants of 10000 type] 
been used? 



Call word to u of 
stored line: 
SA 30000 17 



£ 



Put 10001 in u of 
dummy line, 
SA 30000 17 



0- 



Store call word of 
variable given 10001 
relative constant 
call word 



0- 



Put 10000 in u 
stored line, 
SA 30000 17 



Store call word of 
variable given 
10000 relative con- 
stant call word 



Up count of rela- 
tive constants used 



Call word of modulus 

of array put in u of 

stored instructions: 

TJ 30000 30000 

DV 30000 q 



Subscript data to 
temporary storage 



TP 30000 60001 
to output 



*-©*- 



Generation of coding 
for subscripted 
variable 




> /^Is there an uncon- *\ Yes /'is there a "\ Yes [ ls first tes M N o /^ Is fi 
1 ditional jump? ) > Uecond test ? J ^ an equals?^/ M test 



rst 
>? 



What kind of first A > ^. 
test! is it? ) ►U6J 




TP 60000 A 
to output 



Is second test 
an equals? 



No J TJ 60001 100X+3 
to output 



EJ 60001 100X+4 
to output 







Unconditional 
jump line number 
subroutine 










Count of 3 to 
counter of "10" 
lines 


First test line 
number .subroutine 




Second test line 
number subroutine 









Line Number Call Word Subroutine 



z\ Getting call word 

/ \ j, of line number 

/EntryN, 



Call word to v of 
_£ temporary holding 
MJ 30000 



Call word to 
Op File 



KI check for illegal 
line numbers 



MJ Call word 
line to output 



10 1 
line to output 



©^ 



TP 60000 A 
to output 



TJ 60001 30000 
put in temporary 
storage 



-®* 



100X + 2 to v of 
preceding storage 
line 








MJ 1000 
to temporary 
storage 




Line to output 











— *Ofy-3* Lin 



ne to output 



1st test line 
number subroutine- 



1 count to counter 
of "10 lines" 



-*0 



First Test Line Number Subroutine 



MJ 30000 

to temporary 
storage 



Line number of 1st 
test obtained 



Line number call 
word subroutine 



Q>^ 



TP 60000 A 
to output 



EJ 60001 30000 
to temporary 
storage 



— © 



Second Test Line Number Subroutine 



MJ 30000 

to temporary 

storage 



Line number of 2nd 
test obtained 



Line number call 
word subroutine 



Unconditional Jump Line Number Subroutine 



MJ 30000 
to temporary 
storage 



Line number of un- 
-»| conditional jump 



Line number call 
word subroutine 



©^ 



> J TP 60001 A 
o output 



TJ 60000 30000 
to temporary 
storage 



— *@ 0^1* 



©^ 



TP 60001 A 
to output 




TJ 60000 1000 
to temporary 
storage 







TP 60000 A 
to output 




EJ 60001 1000 




to temporary storage 








TP 60000 A 
to output 




TJ 60001 1000 




to temporary storage 



— ® 



Subroutine to Put Line in Output 



A* 

/Entry\ 



Store line in 
buffer region 



Alter preceding instruc- 
-*1 tion so next line will 
go in next address 



Up count of lines 
in the form 100X 



®r* 



TP 60000 A 
to output 



TJ 60001 30000 
-*to temporary storage 



-*\2»y* 



100X + 2 to v of 
storage line 



Line to output 



Unconditional 
jump line no. 
subroutine 



1st test line 
number subroutine 



2 to counter of 
"10 lines" 



-® 



®=. 



TP 60000 A 
to output 



EJ 60001 30000 
to temporary storage 



^@ 



©^ 



TP 60001 A 
to output 



TJ 60000 30000 
to temporary storag 



-*® 



o 
to 



Subroutine to Generate Coding for a Subscripted Variable 



4 Subscripts 




Is number ^\ f Is number 
of subscripts\ No /of subscripts 



one? 




two? 



Yes 



SP call word 
of I 
to temporary 





Is number 
No 'of subscripts 
three? 




No 



SP 30000 
to temporary 
storage 



Yes 



SP call word 
of J 

to output 



DV call 
word of 
modulus 

to output 



SA call word 17 
of address 
to hold 1st 
line of array 

to output 



Yes 



SP call word 
of K 

to output 



MA 30000 30000 
to temporary 




L subscript call 
word to u of 
storage line 



MA 30000 30000 
to temporary 




Line to 
output 



TJ call 
word of 
modulus 

to output 



loojc+a 



Line to 
output 



«-©- 



MA call 
word 
of I 



M 



call 
word 
of I 



to temporary 
storage 



TU A NI 
to output 



N0T= 
27) > 



Exit 




TP 60000 
to output 



> 

28 \ * 



TP 60000 A 
to output 



MA call call 
word word 
of K M of K 

to output 



*~~ v 45 )*" 



MA 



call 
word 



call 
word 



of J M of J 
to output 



EJ 60001 30000 
to temporary 
storage 



TJ 60001 30000 
to temporary 
storage 



M 30 



Termination Subroutine 



(l9)-» 



o 

CO 

o 



Sentence call 
word to u of 1st 
line of Op File 



Two relative 
constant call 
words put at end 
of generated 
program 
1R 



Sentence call 
word to u of 
1st line of 
prelude 



Have zero relative 
constants been used? 



e\ Yes^—v 






No 



Has only one rela- 
[tive constant been 
used? 



No 



—9/20)-^ 



Yes 



One relative 
constant call 
word put at end 
of generated 
program 



H® 



Compute number of 
lines subject to 
address modifi- 
cation and store 
in 2nd line of 
prelude 



Compute running 
program length in- 
cluding temporaries 
and store in 2nd 
line of Op File 









Compute proper jump 
number of line rel- 
ative to 1000 that 
will go to next UNI- 
CODE instruction. 
Put no. in v of 1st 
line of object program 


Store Op File 
and write gen- 
erated routine 
on tape 


* — 




' 




' 







Compute number of 
lines generated 
routine including 
"10 lines" and prel- 
ude and put this 
number in 1st line 
of prelude 



Exit 




®- 



TJ 60000 lOOx+4 
to output 



EJ 60000 30000 
to temporary 
storage 



®^ 



TP 60000 A 
to output 




EJ 60001 lOOx+4 
to output 



EJ 60001 lOOx+3 
to output 



TJ 60001 30000 
to temporary 
storage 



TJ 60001 1000 
to temporary 
storage 



«® 




21 



Is 1st test\ No 
an equals? 

YeT 



Is 1st 
test > ? 



Yes 



,No 



< 

TP 60000 A 
to output 




1st test line num- 
ber subroutine 



2nd test line num- 
ber subroutine 



2 to count of 
"ten" lines 



-© 




Is 2nd test 
an equals? 



Yes 



No 



TJ 60001 100x+3 
to output 




Line to 
output 



<-(1ttV- 



EJ 60001 1000 
to temporary 
storage 



o 

CO 



@^ 



TP 60001 A 
to output 



TJ 60000 30000 
to temporary 
storage 



^S> 



100x+2 to v 
of storage line 



Line to 
output 



©~ 



2 to count of 
"10" lines 



Unconditional jump 
line no, subroutine 



1st test line number 
subroutine 



> 

36} — H 



TP 60001 A 
to output 



©-* 




Is 2nd test\N 
an equals? r^ 




TJ 60000 lOOx+3 
to output 



EJ 60000 1000 

to temporary storage — *(3l) 



Yes 



©- 



MJ 1000 

to temporary storage 





TJ 60001 100x+4 
to output 



EJ 60001 30000 



^/JV_^ 100x+3 to v of stor- *_> Llne t0 
to temporary storage ^^^_y^ age line I \ output 



TP 60000 A 
to output 




Is 2nd test 
>? 



Yes 



No 




EJ 60001 100x+4 
to output 



TJ 60001 30000 

to temporary storage 



h© 



®- 



TJ 60001 100x+4 
to output 



EJ 60001 30000 
* to temporary storage 



— *(&)-* 



100x+3 to v of 
storage line 


— > 


Line to 
output 






* 



©- 



3 to count 

of "10" linesl*- 



lst test line number 
subroutine 



2nd test line number 
subroutine 



Unconditional jump 
line no, subroutine 



o 

GO 

ro 



©- 



EJ 60001 100x+3 
to output 



TJ 60001 100x+4 
to output 




Yes 



TP 60001 A 
to output 




Is 2nd test\No 
an equals? ) 



2nd test line number 
subroutine 



1st test line number 
subroutine 



@- 



3 to count of 
"ten" lines 



Unconditional jump 
line no, subroutine 



TJ 60000 lOOx+3 
*| to output 



EJ 60000 100x+4 
to output 



Qy*— 



3 to count 
of "ten" lines 



Unconditional jump 
line no, subroutine 



1st test line number 
subroutine 



2nd test line number 
subroutine 



(sh 



TJ 60000 100x+4 
to output 



EJ 60000 100x+3 
to output 



Unconditional jump 
line no, subroutine 



2nd test line number 
subroutine 



©- 



3 to count 

of "10" lines!*- 



1st test line number 
subroutine 



IF Generation Regions 



RE 


KB2512 


RE 


KA2644 


RE 


KC2660 


RE 


KD2737 


RE 


KE3070 


RE 


KF3123 


RE 


KH3265 


RE 


KK3353 


RE 


SA3457 


RE 


KR3462 



Generation Subroutine regions are also needed to assemble this tape, 



1033 



If Generation 

KD - Unconditional jump with second test 

KB - Start- Control 

KF - Unconditional Jump and no second test. KF53 - no unconditional jump 

and a second test. 
KK - No unconditional jump and no second test. KK47-Termination loop. 
KC - Subscripted variable coding 
KH and KR - Subsidiary routines 
KA - Constants 
KE - Dummy instructions 



Unconditional 


IA 


KD 




jump with 





TP 


BK7 


A > 
KF J 


second 


1 


ZJ 


KD2 


test 


2 


TP 


BK4 


A \ 
KD41 J 




3 
4 


EJ 
EJ 


KA4 
KA5 


<lst test""L 


KD75 




5 


TP 


KE10 


GL1001 
KH35 J 




6 


RJ 


KH40 




7 
10 


TP 
EJ 


BK6 
KA4 


A \ 
KD25 J 


>2nd test\_ 




11 


TP 


KE11 


GL100 




12 


RJ 


KH24 


KH21 




13 


RJ 


KH40 


KH35 




14 


RA 


GL102 


KA 




15 


TP 


KE14 


GL100 




16 


TV 


GL102 


GL100 




17 


RJ 


KH40 


KH35 




20 


RJ 


KH3 


KH 




21 


RJ 


KH7 


KH4 




22 


RJ 


KH13 


KH10 




23 


TP 


KA4 


GL106 


"= 2nd test)24 


MJ 





KK47 




25 


TP 


KE11 


GL100 




26 


RJ 


KH30 


KH25 




27 


RJ 


KH40 


KH35 




30 


RS 


GL102 


KA 




31 


TP 


KE14 


GL100 




32 


TV 


GL102 


GL100 




33 


RJ 


KH40 


KH35 




34 


RJ 


KH13 


KH10 



35 RJ KH3 



36 


RJ 


KH7 


37 


TP 


KA4 


= 1st test[40 


MJ 





41 


TP 


KE10 


42 


RJ 


KH40 


43 


TP 


BK6 


44 


EJ 


KA5 



KH 

KH4 
GL106 
KK47 
GL1001 
KH35 J 

A \ 
KD61 J 



Is there a second test? 

Is first test an =? 
Is first test > ? 
TP 60000 A to output 

Is 2nd test an =? 

TJ 60001 30000 

To put proper jump (+3) in v of above 

Line to output 

Adding 1 to jump storage line in GL102 

EJ 60001 30000 

Jump (100X + 4) to v of above 

Line to output 

Line no. of 2nd test to output plus "lO" line 

1st test line no. + w 10** line to output 

Unconditional jump line number + 10 line to 

output 
3 to GL106 as count of number of 10 lines 
Jump to termination loop 
TJ 60001 30000 

100X + 4 to v of above instruction 
Line to output 
100X + 3 now in GL102 
EJ 60001 30000 
100X + 3 to v of above 
Line to output 
MJ v followed by 10 line to output. 

v = unconditional jump line no. 
MJ v followed -by 10 1. 2nd test 

line no. = v 
MJ v (first test) with 10 1 to output 
Number of 10 lines (3) to storage 
Jump to termination loop 

TP 60000 A to output 
Is 2nd test > 



1034 



<2nd test 


45 


TP 


KE14 


GL100 




46 


RJ 


KH30 


KH25 




47 


RJ 


KH40 


KH35 




50 


RS 


GL102 


KA 




51 


TP 


KE11 


GL100 




52 


MJ 





KD32 




53 


TP 


KE32 


GL100 




54 


TU 


A 


GL100 



55 RJ KR4 



KR1 



56 


MJ 





30000 


57 











>2nd test / 60 











61 


TP 


KE14 


GL100 


62 


RJ 


KH24 


KH21 


63 


RJ 


KH40 


KH35 


64 


RA 


GL102 


KA 


65 


TP 


KE11 


GL100 


66 


TV 


GL102 


GL100 


67 


RJ 


KH40 


KH35 


70 


RJ 


KH3 


KH 


71 


RJ 


KH7 


KH4 


72 


RJ 


KH13 


KH10 


73 


TP 
MJ 


KA4 



GL106 


>lst test 1 74 


KK47 


75 


TP 


KE15 


GLIOOl 
KH35 J 


76 


RJ 


KH40 


77 


TP 
EJ 


BK6 
KA4 


L } 


<2nd test/ 100 


KD115J 


101 


TP 


KE16 


GL100 


102 


RJ 


KH24 


KH21 


103 


RJ 


KH40 


KH35 


104 


RA 


GL102 


KA 


105 


TP 


KE24 


GL100 


106 


TV 


GL102 


GL100 


107 


RJ 


KH40 


KH35 


110 


RJ 


KH3 


KH 


111 


RJ 


KH7 


KH4 


112 


RJ 


KH13 


KH10 


113 


TP 


KA4 


GL106 


= 2nd test/114 


MJ 





KK47 


115 


TP 


KE16 


GL100 


116 


RJ 


KH30 


KH25 


117 


RJ 


KH40 


KH35 


120 


RS 


GL102 


KA 


121 


TP 


KE24 


GL100 


122 


TV 


GL102 


GL100 


123 


RJ 


KH40 


KH35 


124 


RJ 


KHT3 


KIIIO 


125 


RJ 


KH3 


KH 


126 


RJ 


KH7 


KH4 



EJ 60001 30000 

100X + 4 to v of above 

Line to output 

100X +4-1 

TJ 60001 30000 

TU A 30000 

Puts 61 Call word into u of above 

instruction 
Puts address of next instruction into v of 

above instruction and sends line to output, 

PHI Al Nil 



EJ 60001 30000 

100X + 3 to v of above instruction 

Line to output 

100X +3+1 

TJ 60001 30000 

100X + 4 to v of above 

Line to output 

2nd test 

1st test 

Unconditional test 

3 to count of ten lines 

To termination loop 

TP 60001 A to output 

Is 2nd test -? 

TJ 60000 30000 

100X + 3 to v of above 

Line to output 

100X +3+1 

EJ 60000 30000 

100X + 4 to v of above 

Line to output 

2nd test 

1st test 

Unconditional test 

3 to count of "10 w lines 

To termination loop 

TJ 60000 30000 

100X + 4 to v of above 

Line to output 

100X +4=1 

EJ 60000 30000 

100X + 3 to v of above 

Line to output 

Unconditional test 

2nd test 

1st test 



1035 





127 


TP 


KA4 


GL106 




130 


MJ 
CA 



KD131 


KK47 


Start- 




IA 


KB 




Control 





MJ 





30000 




1 


TV 


KK101 


KH35 




2 


TV 


KK102 


KH41 




3 


TP 


KA1 


GL103 




4 


TP 


KE12 


GL2 




5 


TP 


KA1 


GL3 \ 
GL4 J 




6 


TP 


KA1 




7 


TP 


BK1 


GL5 




10 


TP 


KA2 


GL101 




11 


TP 


KE 


GL100\ 
KH35 J 




12 


RJ 


KH40 


Generation 


i 13 


TP 


BK11 


KR5 / 


coding for 


' 14 


ZJ 


KB15 


X 


15 


SP 


BK14 


17 | 
KB37 / 




16 


TJ 


KA10 




17 


RJ 


KH16 


KH14 




20 


TU 


KA11 


KE31 




21 


TP 


BK14 


GL104 




22 


RA 


GL103 


KA 




23 


TP 


KA7 


Q 




24 


QT 


BK11 


A 




25 


TU 


A 


KE27 \ 
KE30 J 




26 


TU 


A 




27 


RP 


30004 


KB31 \ 
GL107J 




30 


TP 


BK15 




31 


TP 


KA6 


Q 




32 


QT 


BK11 


A 




33 


RJ 


KG 


KC1 




34 


TP 


KE1 


GL100\ 
KH35 J 




35 


RJ 


KH40 




36 


MJ 





KB47 




37 


TU 


A 


KE31 




40 


MJ 





KB23 


Non- 


41 


TP 


KE1 


GL100 


subscrip- 


42 


SP 


BK14 


17 1 
GL100J 


ted X 


43 


TU 


A 




44 


RJ 


KH40 


KH35 




45 


TP 


BK31 


\ 
KB47 J 




46 


QJ 


KB57 




47 


TP 


BK13 


Q 1 
KB53 J 




50 


QJ 


KB51 




51 


TP 


KE3 


GL1001 
KH35 J 




52 


RJ 


KH40 




53 


TP 


BK12 


Q \ 
KB57 J 




54 


QJ 


KB55 



3 to count of "10" lines 
To termination loop 



Exit 

GL6 to v of KH35 

KH6 to v of KH41 

Clearing GL103, the counter of relative 

constants used 
20000 to output 

Clear GL3, GL4 

Line no. to GL5 

1000 to GL101 

MJ 30000 to GL6, first line of Object 
Program 

If BK11 isn f t zero, X is a subscripted 

variable 

If 77000> call word, it is a pseudo-op sub- 
scripted variable 

Puts call word of sub. var. in Op File & ups 
count of relative cons, used 

10000 to u of SA 30000 17 

Storing call word of variable given 10000 
call word 

Count of relative const, used increased by 1 

77777 mask to q 

Call word of modulus to An 

f f TJ 30000 30000 
U 0I LDV 30000 q 

Subscript data to GL107-12 

Mask of 77777 to q 
Number of subscripts to A 
Generation of coding for subscripted variable 
TP 30000 60000 to GL100 and to generated 
output coding 



Modulus call word to 



Call word to u of instruction (SA 30000 17) 
for pseudo op 

TP 30000 60000 to GL100 
Call word to u of above 
Line to generated coding output 
Is X a constant? 

Is absolute value desired? 

TM 60000 60000 to output 

Is negative value desired? 



1036 



55 


TP 


KE4 


GLIOOI 
KH35 J 


56 


RJ 


KH40 


r ,.57 

Generation , n 
coding for /I 


TP 
ZJ 


BK21 
KB61 


A 1 
KR10 J 


SP 


BK24 


17 I 


Y 62 


TJ 


KA10 


KB110J 


63 


RJ 


KH16 


KH14 


64 


TP 


GL103 


A 1 
KB71 J 


65 


ZJ 


KB66 


66 


TU 


KA12 


KE31 


67 


TP 


BK24 


GL105 


70 


MJ 





KB73 


71 


TU 


KA11 


KE31 


72 


TP 


BK24 


GL104 


73 


RA 


GL103 


KA 


74 


TP 


KA7 


Q 


75 


QT 


BK21 


A 1 


76 


TU 


A 


KE27 \ 


77 


TU 


A 


KE30 J 


100 


RP 


30004 


KB1021 
GL107J 


101 


TP 


BK25 


102 


TP 


KA6 


Q 


103 


QT 


BK21 


A 


104 


RJ 


KC 


KC1 


105 


TP 


KE2 


GL100\ 
KH35 J 


106 


RJ 


KH40 


107 


MJ 





KB120 


110 


TU 


A 


KE31 


111 


MJ 





KB74 


Non-sub- 112 


TP 


KE2 


GL100 


scripted 113 


SP 


BK24 


17 } 
GLIOOJ 


Y 114 


TU 


A 


115 


RJ 


KH40 


KH35 


116 


TP 


BK32 


Q \ 
KB120J 


117 


QJ 


KB130 


120 


TP 


BK23 


Q \ 
KB 124 J 


121 


QJ 


KB122 


122 


TP 


KE5 


GLIOOI 
KH35 J 


123 


RJ 


KH40 


124 


TP 


BK22 


Q 1 
KB130J 


125 


QJ 


KB126 


126 


TP 


KE6 


GL100 1 
KH35 J 


127 


RJ 


KH40 


130 


TP 


BK10 


A 1 
KF53 J 


131 


ZJ 


KD 




CA 


KB132 





TN 60000 60000 to output 

Is Y a subscripted variable? 

If 77000>call word, it is a pseudo op sub. 

variable 
Puts call word of sub. var. in Op File and 

ups count of rel. cons, used 
Have any relative constants of 10000 type 

been used? 
10001 to u of SA 30000 17 
Storing call word of variable given 10001 

call word 

10000 to u of SA 30000 17 

Storing call word of variable given 10000 

call word 
Count of relative constants increased 
77777 to q 

f f TJ 30000 30000 
u 01 I DV 30000 q 



Modulus call word to 



Subscript data of Y to temporary storage 

77777 to q 

Number of subscripts to A 

Gen. of coding for subscripted variable 

TP 30000 60001 to output 

Call word to u of SA 30000 17 for pseudo op 

TP 30000 60001 to output line 
Call word to u of above line 
Line to output 
Is Y a constant? 

Is absolute value desired? 

TM 60001 60001 to output 

Is negative value desired? 

TN 60001 60001 to output 

Is there an unconditional jump? 



1037 



Uncon- 
ditional 
Jump and 
no 2nd 
Test 



IA 

RJ 

1 TP 



RP 
TJ 
MJ 
MJ 
MJ 
MJ 



< 1st test 



=(lst) 

> 1st 

< 1st J_ 



NOT = 
(1st) 

>lst L 



10 MJ 

11 TP 

12 RJ 

13 TP 

14 RJ 

15 RJ 

16 RJ 

17 RJ 

20 TP 

21 MJ 

22 TP 

23 RJ 

24 TP 

25 MJ 

26 TP 

27 RJ 

30 TP 

31 MJ 



32 TP 

33 RJ 

34 TP 

35 RJ 

36 RJ 

37 RJ 

40 RJ 

41 TP 

42 MJ 

43 TP 

44 RJ 

45 TP 

46 MJ 



No uncon- 
ditional 
jump and 
a second 
test 
<(lst test) 



47 TP 

50 RJ 

51 TP 

52 MJ 

53 TP 

54 ZJ 

55 TP 

56 EJ 

57 EJ 

60 TP 

61 RJ 

62 TP 

63 EJ 



KF 

SA2 

KE7 

30005 

KF4 

2 

3 

4 

5 

6 

KE10 

KH40 

KE11 

KH34 

KH40 

KH13 

KH7 

KA3 



KE10 

KH40 

KE14 



KE15 

KH40 

KE16 



KE15 

KH40 

KE16 

KH34 

KH40 

KH 

KH13 

KA3 



KE10 

KH40 

KE14 



KE10 

KH40 

KE11 



BK7 

KF55 

BK4 

KA4 

KA5 

KE10 

KH40 

BK6 

KA4 



SA \ 
A J 
KF47 > ? 
KF4 

KF11< ? 
KF22 = ? 
KF26 > ? 
KF32 < ? 
KF43 

NOT = ? 
GL1001 ' 
KH35 J 
GL100 
KH31 
KH35 
KH10 
KH4 
GL106 
KK47 
GL100] 
KH35 J 
GL100 
KF14 
GL1001 
KH35 J 
GL100 
KF14 
GL1001 
KH35 J 
GL100 
KH31 
KH35 
KH4 
KH10 
GL106 
KK47 
GL1001 
KH35 J 
GL100 
KF35 
GL1001 
KH35 J 
GL100 
KF35 
A 
KK 

A \ 
KF106J 

KF124 

GL100) 

KH35 J 

A 

KF75 



Puts MJ Z in A where Z is code number 
for relation test 



} 



} 



Determining what first test is 



TP 60000 A to output 

TJ 60001 30000 

100X + 2 to v of above 

Line to output 

Unconditional test 

1st test 

2 to count of "10" lines 

To termination loop 

TP 60000 A to output 

EJ 60001 30000 

TP 60001 A to output 
TJ 60000 30000 

TP 60001 A to output 

TJ 60000 30000 

100X + 2 to v of above 

Line to output 

1st test 

Unconditional jump 

2 to count of "10" lines 

To termination loop 

TP 60000 A to output 

EJ 60001 30000 

TP 60000 A to output 
TJ 60001 30000 

Is there a second test? 

Is 1st test =? 
Is 1st test > ? 
TP 60000 A to output 

Is 2nd test =? 



1038 



2nd test > 64 


TP 


65 


RJ 


66 


RJ 


67 


TP 


70 


RJ 


71 


RJ 


72 


RJ 


73 


TP 


2nd test = __ 

ID 


MJ 
TP 


76 


RJ 


"7T 
I 1 


r> t 
J* «J 



100 TP 

101 RS 

102 TV 

103 RJ 
104 TP 

'= (1st 7 105 M J 

test) 106 TP 

107 RJ 

110 TP 

111 EJ 

112 TP 

113 RJ 

114 RJ 

115 TP 






>2nd test jll6 M J 

117 TP 

120 RJ 

121 RJ 

122 TP 

123 MJ 



>lst ' 
test 



124 TP 

125 RJ 

126 TP 
< 2nd! 127 EJ 



test 



= 2nd 
test 



130 TP 

131 RJ 

132 RJ 

133 TP 

134 MJ 

135 TP 

136 RJ 

137 RJ 

140 TP 

141 MJ 
CA 



KE11 

KH24 

KH40 

KE21 

KH40 

KH3 

KH7 

KA3 



KE11 

KH30 

KH40 

KE14 

GL102 

GL102 

KH40 

KE20 



KE10 

KH40 

BK6 

KA5 

KE14 

KH30 

KH40 

KE11 



KE14 

KH24 

KH40 

KE22 



KE15 

KH40 

BK6 

KA4 

KE16 

KH24 

KH40 

KE23 



KE16 

KH30 

KH40 

KE24 



KF142 






} 



GL100 

KH21 

KH35 

GL100 1 

KH35 

KH 

KH4 

GL106 

KK47 

GL100 

KH25 

KK35 

GL100 

KA 

GL100 

KH35 

GL100 

KF70 

GL100 \ 

KH35 J 

A 

KF117 

GL100 

KH25 

KH35 

GL100 

KF101 

GL100 

KH21 

KH35 

GL100 

KF70 

GL100 I 

KH35 J 

A \ 
KF135J 

GL100 

KH21 

KH35 

GL100 

KF70 

GL100 

KH25 

KH35 

GL100 

KF101 



TJ 60001 30000 

100X + 3 to v of above 

Line to output 

EJ 60001 1000 to output 

2nd test setup 

1st test setup 

2 to count of "ten** lines 

To termination 

TJ 60001 30000 

100X + 4 to v of above 

Line to output 

EJ 60001 30000 

100X +4-1 

100X + 3 to v of above instruction 

Line to output 

MJ 1000 



TP 60000 A to output 

Is 2nd test>? 

EJ 60001 30000 
100X 4- 4 to v of above 
Line to output 
TJ 60001 30000 

EJ 60001 30000 
100X + 3 to v of above 
Line to output 
TJ 60001 1000 



TP 60001 A to output 

Is 2nd test =? 

TJ 60000 30000 
100X + 3 to v of above 
Line to output 
EJ 60000 1000 

TJ 60000 30000 
100X + 4 to v of above 
Line to output 
EJ 60000 30000 



No Uncon- 
ditional 
Jump & 
no Second 
Test 



IA 
RJ 

2 RP 

3 TJ 



KK 

SA2 

KE7 

30005 

KK4 



SA 

A 

KK43 > ? 

KK44 



1 Pu 



ts MJ Z in A where Z is code number 
for relation test 
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4 


MJ 


2 


KK11 < 


9 




5 


MJ 


3 


KK23 = ? 




6 


MJ 


4 


KK27 > ? 




7 
10 


MJ 
MJ 
TP 


5 
6 
KEIO 


KK33 < ? 


<lst test 


KK37 NOT 




11 


GLlOOl 
KH35 J 




12 


RJ 


KH40 




13 


TP 


KE11 


GLIOO 




14 


RJ 


KH34 


KH31 




15 


RJ 


KH40 


KH35 




16 


TP 


KE20 


GLIOO \ 
KH35 J 




17 


RJ 


KH40 




20 


RJ 


KH7 


KH4 




21 
22 


TP 
MJ 
TP 


KA 



KEIO 


GL106 


= 1st 

- 


KK47 


test 


23 


GLlOOl 
KH35 J 




24 


RJ 


KH40 




25 


TP 


KE14 


GLIOO 


*> — — 


__26_ 


MJ 





KK14 


** 


27 


TP 


KE15 


GLlOOl 
KH35 J 




30 


RJ 


KH40 




31 


TP 


KE16 


GLIOO 


-^______ 


32 


MJ 
TP 



KE15 


KK14 


— 


33 


GLlOOl 
KH35 J 




34 


RJ 


KH40 




35 
36 


TP 

MJ 


KE13 



GLIOO 


NOT = 1 


KK17 




37 


TP 


KEIO 


GLlOOl 
KH35 J 




40 


RJ 


KH40 




41 


TP 


KE21 


GLIOO 


> ■ 


42 


MJ 





KK17 




43 


TP 


KEIO 


GLlOOl 
KH35 J 




44 


RJ 


KH40 




45 


TP 


KE22 


GLIOO 




46 


MJ 





KK17 


Termi- 


47 


SP 


BK3 


17 \ 
KH57 J 


nation 


50 


TU 


A 


Loop 


51 


TP 


A 


GL 




52 


TP 


GL103 


A \ 
KK64 J 




53 


ZJ 


KK54 




54 


EJ 


KA 


KK62 


No. of 


55 


TP 


GL104 


GLIOO' 




rel. cons. 


56 


RJ 


KH40 


KH35 


» 


= 2 


57 


TP 


GL105 


GLIOO 






60 


RJ 


KH40 


KH35 . 






61 


MJ 





KK64 




62 


TP 


GL104 


GLlOOl 
KH35 J 




63 


RJ 


KH40 




64 


TP 


GL101 


A 




65 


ST 


KA2 


GL1 




66 


TV 


A 


GL 




67 


ST 


GL106 


A I 




70 


AT 


KA3 


KH60 j 


f 



■Determination of type of 1st test 

TP" 60000 A to output 

TJ 60001 30000 

100X + 2 to v of above 

Line to output 

MJ 1000 to output 

1st test set-up 

1 to count of "10*' lines 

To termination loop 

TP 60000 A to output 

EJ 60001 30000 

TP 60001 A to output 
TJ 60000 30000 

TP 60001 A to output 
TJ 60000 1000 

TP 60000 A to output 
EJ 60001 1000 

TP 60000 A to output 
TJ 60001 1000 

Sentence call word to u of 1st line of Op 

File 
Call word to u of 1st line of prelude 

Is number of relative const, equal to zero? 

Is number of rel. cons, equal to 1? 

Relative constant call words put at end of 
generated program. Numbers were equated 
to 10000 and 10001 in coding 

Call word of no. equated to 10000 put at end 

Ordinal 100X program line to A 
Subtracting 1000 and putting in GL1 
100X-1000 to GL V 

100X-1000-number of "ten" lines + 2 to 2nd 
line of Op File 
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71 


RA 


GL 


KA13 




72 


TP 


GL101 


A 




73 


ST 


GL106 


A 
A 




74 


AT 


KA4 




75 


TV 


A 


GL6 . 




76 


TP 


KK103 


OPl \ 
0P2 J 




77 


RJ 


OP 




100 


MJ 





KB 




101 








GL6 




102 








KH61 




103 



CA 

IA 


GL 
KK104 

KC 


KH57 


Sub- 





MJ 





30000 


scripted 


1 


EJ 


KA 


KC53 


Variable 


2 


EJ 


KA3 


KC45 


Coding 


3 


EJ 


KA4 


KC37 


Number of 


4 


TP 


KE25 


GLIOO 


subscripts 


5 


SP 


GL112 


17 | 
GLIOO J 


are 4 


6 


TU 


A 




7 


RJ 


KH40 


KH35 




10 


TP 


KE26 


GLIOO 




11 


TU 


GL111 


GLIOO 




12 


TV 


GL111 


GLIOO 




13 


RJ 


KH40 


KH35 




14 


TU 


GL110 


GLIOO 




15 


TV 


GL110 


GLIOO 




16 


RJ 


KH40 


KH35 




17 


TU 


GL107 


GLIOO 




20 


TV 


GL107 


GLIOO 




21 


RJ 


KH40 


KH35 




22 


TP 


KE27 


GLIOO 




23 


TV 


GL101 


GLIOO \ 
KA3 J 




24 


RA 


GLIOO 




25 


RJ 


KH40 


KH35 




26 


TP 


KE30 


GLIOO 1 
KH35 J 




27 


RJ 


KH40 




30 


TP 


KE31 


GLIOO 1 
KH35 J 




31 


RJ 


KH40 




32 


RJ 


KR4 


KR 




33 


MJ 





KC 




34 





62000 







35 
36 


RJ 

MJ 


KD56 



KD53 


3 sub- X 


KB 105 


scripts 


37 


TP 


KE25 


GLIOO 




40 


SP 


GLU1 


17 \ 
GLIOO J 




41 


TU 


A 




42 


RJ 


KH40 


KH35 



100X - 1000 H to v of prelude 1st line 

100X - number of "ten" lines 4- 3 to v of 
1st line of running program 

? r Writing Op File and gen. routines on tape 



Are no. of subscripts 1? 
Are no. of subscripts 2? 
Are no. of subscripts 3? 
SP 30000 

Call word of L subscript to above line. Sub- 
scripts assumed to be I,J r K,L 
Line to output 
MA 30000 30000 
K/vj-> u of above line 
K -> v of above 
Line to output 

J n to u of MA 30000 30000 
J to v of above 
Line to output 
IM to u of MA 30000 30000 
I to v of above 
Line to output 
TJ Mod. 30000 

100X + 2 to v of above 

Line to output 

DV Mod. q to output 

SA CW 17 to output. CW is call word of 
address of line that will hold address of 
1st line of array 

TU A NI to output. NI means Next Instr. 

Stored constant used to identify dummy 
pseudo op functions 

TU 61 NI to output 

Return to finish handling variable Y 
SP 30000 

K subscript call word to u of above 

Line to output 
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43 
44 


TP 
MJ 


KE26 



KE25 


GLIOO 


2 sub- / 


KC14 


scripts 


45 


TP 


GLIOO 




46 


SP 


GL110 


17 | 
GLIOO J 




47 


TU 


A 




50 


RJ 


KH40 


KH35 




51 
52 


TP 
MJ 


KE26 



GLIOO 


1 sub- 7 


KC17 


script 


53 


TP 


KE25 


GLIOO 




54 


SP 


GL107 


17 } 
GLIOO J 




55 


TU 


A 




56 


MJ 
CA 




KC57 


KC21 



MA 30000 30000 to output line 

SP 30000 

r J subscript call word to u of above 

Line to output 

MA 30000 30000 to output line 



SP 30000 

I call word to u of above 



Subsidiary Subroutines 



2nd test TA 

line no. TP 

subroutine 1 TP 

2 RJ 



1st test 
line no. 
_subroutine 
Uncon- |_ 



ditional 
jump line 
no. sub- 
routine 
Subscripted 
var. call 
word to 
Op. File 



+3 Jump 
setter 



+4 Jump 
setter 



+ 2 Jump 
setter 



Subroutine 
to put 
line in 
output 



36 RA 

37 RA 

40 MJ 



KH 
KE 
BK7 
KH56 




KH35 

GL101 





GLIOO 

A 

KH45 



30000 

GLIOO 

A 

KH45 

30000 

GLIOO 

A 

KH45 

30000 

KH41 

KA2 



MJ 30000 to output line 
Line number of 2nd test to A 
Getting call word for line number, putting 

it in Op File, putting it in output 

and putting 10 line in output 

MJ 30000 

Line number 1st test to A 

Line number call word subroutine 

MJ 30000 

Line no. of unconditional jump to A 

Line number call word subroutine 

Call word sent to Op File 
UfS count of relative constants used in 
prelude 



TU 61 NI to output 

Return to finish handling variable X 
(1000 + count of lines) to GL102 
+ 3 
v of GLIOO set to 100X + 3 



30000 
KD53 
KB34 
GL102 
KA4 
GLIOO 
30000 
GL102 * 

KA5 [ 100X + 4 to v of output line 
GLIOO 
30000 
GL102 
KA3 
GLIOO 
30000 
[GL6] 



► 100X + 2 to v of output line 



KA 
KA 
30000 



Inserting output line in proper place in 

generated coding 
Upping v of KH35 by 1 
Count of 1000 plus number of lines 
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Loads Op 


C 41 


TP 


A 


QCH62 


File 


142 


RA 


KH41 


KA 


for call 


143 


RA 


KH57 


KA 


word 


L44 


MJ 





30000 


Line 


(45 


RJ 


LW 


LW1 


number 


46 


TV 





GL100 


call word 


47 


RJ 


KH44 


KH41 


subroutine 


: 50 


SP 





17 




hi 


TP 


BK33 







152 


RJ 


KI 


KI1 




/53 


RJ 


KH40 


KH35 




/54 


TP 


KE17 


GL100 




55 
V56 


RJ 

MJ 


KH40 



KH35 


Op File ]_ 


30000 


build-up 


~~w 





30000 


2 


space 


60 













61 













62 













63 













64 













65 



CA 

IA 



KH66 

KA 





Constants 











1 




1 













2 








1000 




3 








2 




4 








3 




5 








4 




6 








77777 




7 





77777 







10 





77000 







11 





10000 







12 





10001 







13 



CA 

IA 




KA14 

KE 


6 


Dummy 





MJ 





30000 


Instruc- 


1 


TP 


30000 


60000 


tions for 


2 


TP 


30000 


60001 


Use in 


3 


TM 


60000 


60000 


Building 


4 


TN 


60000 


60000 


Generated 


5 


TM 


60001 


60001 


Routine 


6 


TN 


60001 


60001 




7 


MJ 










10 


TP 


60000 


A 




11 


TJ 


60001 


30000 




12 





20000 







13 


TJ 


60000 


1000 




14 


EJ 


60001 


30000 




15 


TP 


60001 


A 



} 



Loads Op File with call word 

Ups v of above by 1 

Increases count of Op File lines by 1 

Getting call word of line number 
Call word to v of output line 
Call word to Op File 
Call word of line no. to A u 
Puts Pseudo-Op indicator in Q 
Check for illegal line numbers 
Line to output 

10 1 to output 
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16 


TJ 


60000 


30000 




17 


10 





1 




20 


MJ 





1000 




21 


EJ 


60001 


1000 




22 


TJ 


60001 


1000 




23 


EJ 


60000 


1000 




24 


EJ 


60000 


30000 




25 


SP 


30000 







26 


MA 


30000 


30000 




27 


TJ 


30000 


30000 




30 


DV 


30000 


Q 




31 


SA 


30000 


17 




32 


TU 
CA 

IA 


A 
KE33 

SA 


30000 







SP 


BK4 


17 I 
KE7 J 




1 


TU 


A 




2 


MJ 
CA 

IA 




SA3 

KR 


30000 




Co 


TP 


KE32 


GLIOO 


Subroutine] 1 


TV 


GL101 


GLIOO \ 
KA J 


to put 


V 


RA 


GLIOO 


TU-A-NI 


I 3 


RJ 


KH40 


KH35 


in output 


u 


MJ 





30000 




5 


SP 


BK14 


17 } 
KH17 J 




6 


TJ 


KC34 




7 


MJ 





KB41 




10 


SP 


BK24 


17 | 
KC35 J 




11 


TJ 


KC34 




12 


MJ 
CA 



KR13 


KB112 



Puts 1st test code relation number in A 
and then in KE7 U . 



TU A 30000 

100X H to v of above 

Line to output 

Is call word of variable X a dummy function 
of pseudo op? 

Is call word of variable Y a dummy function 
of pseudo op? 
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Print Generation Routine 

It is assumed that everything following PRINTS in this instruction is to 
be printed. Thus, parentheses are included in the print-out. Since the printed 
data is generally self-explanatory comments following a print instruction are 
assumed redundant. If they are included, the routine will include them in the 
printed output. 

It is further assumed that any one Print instruction is no longer than 6 
Unityper lines. Material that would fill more space than this should be divided 
into as many instructions as needed to bring each within the proper limit. 

The first line of the string-out contains the number of lines in the string- 
out. In the second line is the line number of the instruction. The third 
contains the title, PRINT. The v portion of the fourth line holds the call 
word assigned to the instruction. The fifth and succeeding lines contain the 
excess-three characters which will be converted to Flex code during generation. 

Excess-three codes are converted by the routine to Flex codes which are 
stored for later printing during the Object Program run. A library routine 
is referenced during this run to effect the printing. Because the library 
routine to print Flex code directly is much shorter than a library routine 
that could print directly from excess three, this procedure of converting 
from excess-three to Flex code during generation was adopted. Space saving 
during the Object Program run was considered of paramount importance. 

GL, the region in which the print subroutine is stored before writing on 
tape, has to have at its disposal a variable address length that will hold the 
22g-address print subroutine and prelude plus the indeterminate group of Flex 
codes. The Flex codes, because of the addition of shift-up and shift-down 
codes and substitution of more than one Flex code for a corresponding excess- 
three character, will likely take up more space than the group of excess-three 
lines in BK. GL cannot exceed 520 fl lines and in most cases will be far less. 



The size of the Op File 1 item for PRINT is 3 addresses. The generated sub- 
ine is 22 Q + number of words of Flex code. The ni 
running program is 12g -I- number of wortfs i of Flex code 



routine is 22 Q + number of words of Flex code. The number of words in the 
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After the instruction in BK, the buffer region, has been identified during 
generation as PRINT, the control generation routine by instruction RJ UR UR1 
activates the print generator. The print routine generates the coding needed 
for the print subroutine and gets it written on the proper tape. Also stored 
in NP for later writing on tape is the Op File 1 item. 
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Flow Chart of Print Generation Routine 



A 

/Entrance ^ 



Translate "excess 
three" input print 
lines to Flex code 
and store 



o 



Compute and build 
prelude of gen- 
erated routine 



Op File to stor- 
age and generated 
routine to tape 



Prepare and insert 
parameter line of 
"Flex code print 
lines" for gener- 
ated routine 



Arrange to have 
Flex-print routine 
of library avail- 
able by sending its 
call word (50002) 
to LS library 
routine 



Build 
Op File 



Compute storage ad- 
dress of index 
parameter for print 
routine and put 
address and param- 
eter in object 
program 



Get call word for 
character index 
(117) and put into 
generated routine 



Prepare object pro- 
gram jump exit to 
2nd line of suc- 
ceeding sentence 
of object program 



Get call word for 
carriage return 
(45) and insert 
in generated 
routine 




Exit 



Print Generation 



Regions 



RE UR2512 Print generator 

RE GL5360 Storage for generated subroutine plus 
prelude 



Generation Subroutine Regions are also needed to assemble this tape, 
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Print Generation 







T A 


tin 
UI\ 









MJ 





30000 




1 


TP 


BK 


A 




2 


RS 


A 


UR75 \ 
UR50 J 




3 


TV 


A 




4 


TP 


UR50 


VX4 I 
VX3 J 




5 


TP 


UR51 




6 


RJ 


VX2 


VX 




7 


TP 

J. L 




cron 




10 


TU 


UR76 


GL20 




11 


TV 


GL20 


UR106 1 




12 


RA 


UR106 


UR77 \ 




13 


TV 


UR106 


UR65 J 




14 


TV 


UR106 


UR63 \ 
URIOO J 




15 


RA 


UR63 




16 


SP 


UR106 


17 1 
GL21 J 




17 


AT 


UR106 




20 


TP 


UR101 


A \ 
CW1 J 




21 


RJ 


CW 




22 


TV 


Q 


UR64 




23 


TP 


UR102 


A \ 
CW1 J 




24 


RJ 


CW 




25 


TU 


A 


UR65 




26 


SP 


BK3 


17 




27 


TU 


A 


UR52 




30 


TU 


A 


UR55 




31 


TV 


GL20 


UR53 \ 




32 


RA 


UR53 


UR103 J 




33 


TP 


UR54 


A \ 
LSI J 




34 


RJ 


LS 




35 


TP 


UR104 


UR56 




36 


TV 


GL20 


UR57 




37 


TP 


BKl 


UR62 




40 


TV 


GL20 


UR55 \ 
UR105 J 




41 


RA 


UR55 




42 


RP 


30020 


UR44 1 
GL J 




43 


TP 


UR55 




44 


TP 


UR47 


OPl \ 
0P2 J 




45 


RJ 


OP 




46 


MJ 





UR 




47 





GL 


UR52 




50 





BK4 


° ) 
J 




51 





GL22 


Op File 


" 52 





30000 


3 


1 Item - 


53 








30000 



54 



50002 



Exit 

Entry. No. of lines of input -^ a 

No. of words of excess 3 to parameter line 

Parameter words to X3 to Flex code routine 

Jump to X3 to Flex code routine 

Output parameter line from X3 to Flex code 

Changing u to address relative to 1000 

Computing and putting temporary storage 
address in running program where needed 

Preparing jump exit of running program to 
2nd line of succeeding subroutine 

Temp storage address in u and v sent to 
region accumulating subroutine, later to 
be used as a parameter in print tag rtne. 

Getting call word for carriage return Flex 

code. 
Inserting call word for carriage return in 

program 
Getting call word for index 117 
Call word to running program 

Call word of statement to 1st line of Op 

File 
Computing & putting no. of lines in running 

program, including temporaries, into Op 

File 
Putting call word for print tag rtne. into 

LN, so this routine will be available in 

the library 
No. address modification lines to prelude 
Number unmodifiable constants to prelude 
Line no. to prelude 
Computing & putting proper number in v 

of prelude 1st line 
Prelude & 1st line of running program to 

assembly region 
Transferring Op File & subroutine to Op 

File from where it will go on tape later 
Exit to 1st line 
Parameter line for Op control routine 

Parameter lines for X3 to Flex code 

u = call word of print statement 

v = no. lines, running program, including 

temporaries 
Call word for print tag routine 
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GL 


r 55 





30000 


30000 


1 


56 








30000 


< 

Pre- 3 
lude 4 


57 
60 
61 

















5 


L 62 











6 


r 63 


MJ 





30000 


7 


64 


PR 





30000 


D 10 


65 


TP 


30000 


30000 


null— 1 . 
ning l2 

Pro- 13 


66 
67 


TP 
10 


01007 



50002 
3 


70 


TP 


01010 


50002 


gram 14 


71 


10 





4 


15 


72 


RJ 


50002 


50002 


16 


73 


10 


2 





17 


_ 74 


MJ 





1000 


20 


75 








4 


21 


76 





1011 







77 








1011 




100 








2 




101 








45 




102 








117 




103 








12 




104 








14 




105 








22 




106 




CA 




UR107 


30000 



u = Call word of print statement, v = # 
lines prelude & routine 

v = number lines subject to address modi- 
fication 

v = number of unmodifiable constants 



Line number 

Exit - 1st line of running program 

v = 1 (45) 

u = 1 (117) v = temp, storage address 

Parameter lines to Print Tag Routine 



Jump to print tag routine 

Jump back to first line of running program 
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Compute Generation Routine 

This routine forms a code that sets up data in the proper location for 
the equation coding, followed by a return jump to this part. Ail the actual 
computational coding is done by the equation generation routine. 

The string-out input to the Compute Generator contains the call words 
of the variables or constants in the same sequence in which they appear in the 
input sentences. Subscripted variaules nave multipliers anu moduli saved 
in addition to their call words. Thus one subscripted variable occupies 
2, 3 or 4 locations, depending on how many subscripts it has, and the sub- 
script call words follow thereafter. Functions within pseudo operations have 
only the call word of the function in the string-out and no argument call 
words, even though the arguments may be stated in the input sentence. At the 
end of every string-out is a line of zeros followed by 01 227-7 (the XS3 
representation of A.). When a compute sentence contains several terms 
separated by w andV in the input sentence, the string-out has a zero line 
inserted between the last call word of one term and the first call word of the 
following term. 

The Compute Generator builds up Operation File I, prelude, running program 
and file of relative constants from this data. The first line of the generated 
coding - the exit line - is an MJ to the line that follows second after the 
last generated line. The last line of the running code is an MJ to the exit 
line. After this follows a list of generated relative constants. 

For terms that are not inside parentheses in the input sentence (that is, 
for the first string-out call word and those following zero lines) the routine 
generates : 

1) In most cases (call-word types 66,65,64,4) 

RJ 25 25 RJ 4 4 

or 

10 00000 00001 10 00000 00001 

2) For subscripted variables (call-word type 77) 



TP 64 62000 

TP 64 62001 

TP 64«— 6260^ 

TP 64 62003 

RJ 

10 00000 0001 



1,2, 3 or 4 of those lines 

depending on how many subscripts 

XT XI ww J the subscripted variable has* 

24 24 r 
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3) And for dummy functions (call-word type 61) 

TU Call word + 1 a 

TV Call word + 1 a 

RA a Call word of constant 1 

a RJ [30000] IjOOOOH 



The terms that are inside parentheses in the input sentence precede the 
code of the RJ line and ten line of their respective symbol. Their handling 
splits into two groups: those that are within or are input parameters to a 
pseudo operation, and those that are not. 

To set up input parameters for reference to a pseudo operation the routine 
generates : 

4) For functions (call-word type 66) 



in the location for relative 
constants 



p 


00 


Call word 


Call word 


£ + i 


00 


25 


25 




TP 


P 


61 




TP 


/3+1 


61 




00 


25 


00000 



r in the running code 
in Operation File I 



5) For subscripted variables (call-word type 77) 

X 

TP y 76X 

OP File I 



00 
TP 
00 
TP 



Call word Call word relative constant 
y 76X running code 



with 1,2,3 or 4 subscripts 
No. (4), (1) & (4), (1) & (2) 
& (4) or (1) & (2) & (3) & (4) 
of these rows appear in running 
code. 



77 00000 

Call word of 63 

1st multi- 
plier 

TP Call word of 63 

2nd multi- 
plier 

TP Call word of 63 

3rd multi- 
plier 

TP Call word of 63 

modulus 

6) For all others (call-word types 64, 65 or 67) 

TP Call word 63 running code 

For terms within parentheses of a function or a subscripted variable 
but not within a pseudo operation the routine generates: 



(1)" 


(2) 


(3) 


(4). 
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7) For subscripted variables (call-word types 76 or 77) 

8 00 Call word Call word relative constants 

TP 8 75 running code 

TP modulus 62 

(for 77 00 Call word 00000 OP File I (this does not apply for 
only) Call-word type 76) 

8) For all others (Call-word types 63,64,65 or 67) 

TP Call word 62 running code 



1053 



Flow Chart of Compute Generation Routine 



LA 7 



LA 11 



LA 13 



Clear spaces for Op 
File I LF, prelude LE, 
temp, storage 



Set CW of sentence 
in u of LE and u 
*fof LF 



o 

en 



"Before get next" 
jump to "get 
next" 



Set line no. in 
LE5 and MJ — 
>| in LE6 



Set in ID 4 
addr. to be- 
ginning value 



V & VI 



MJ place the stored 

RJ CW CW 

10 1 

and adv. counters 

and check 



Place CW in Op. File I 



"Go to 
End" 



LA46 




Are we inside 
pseudo? 




Yes 



LA 17 



Get next string, 
word — > A 
(preadvO 



LA 22 



Yes lis it zero? 



No 



LA 23 



Is it 
XS3 A. 



No 



LA 25 



Are we inside 
parenth.? 



No 



LA 26 



Put string, word 
to Q and QT with 
mask Op. code 
> temp. 





1 



LA33 

/"Is the CW type 

64,65,66? 
y ^ (25 type) 



o 

Oi 



II 



25 



Yes 



RJ form 25 CW and 
set aside 

RJ CW CW 

10 1 



Adv. ind. 
"inside something" 



Jump to get next 
string, word 



LA30 



LA31 



L32 



No / Is the CW type 
77? (24 type) 



10 




Is the CW type 
61? 



Yes 



11 



RJ form 24 CW and 
set aside 

RJ CW CW 

10 1 




Yes 



Save CW in LC5 and 
change exit forzero 
str. word to (18) 
and set "inside 
something" to 1 



Make presetting for 
hdl. 77 outside 
pseudo, rest exit of 
RJ 



Jump to "before 
get next" string, 
word 



Jump to hdl. 77 
in part where first 
row is done 



Thus pseudo oper. 

(4. ). Adv., ind. 

for inside pseudo 



12 



RJ for 4 CW and 

set aside 

RJ CW CW 

10 1 



Ad\>» index 
"inside something" 



Jump to get next 
string, word 



Changed exit of zero string, word 
LA 113 




o 



Generate TU CW+1 a 
TV CW+1 a 
RA a "1" 
a RJ [ ] ■ [ ] 

and place it 



Adv. addresses for 
generated coding 



Restore jump for zero 
string-out word 



Jump to "get next" 



LA 134 




Go to End 



Set no. of lines in 
0p„ File I and heading 
in gen* code 



MJ to EXIT 



LA77 
Is the CW 77? \-^- 




21 



RJ to gen. and 

place CW CW 

TP addr. of 61.. 

CW 
and adv.ct. 



Restore exit of 
RJ and prep, 
25 CW 



MJ to gen and 
place 25_ 25.. 

TP addr 61... 
of CW 



Place CW in 
Op File I 



Adv. counters 
and check regions 



Jump to get next 
string word 



LA74 

r \ 

s the CW 77? V 



^ 



No 



20 



IV 



17 



LA100 

Thus single val, 
var. 64, 65, or 67. 
RJ generate 
TP CW CW 



RJ to gen. and 
place CW CW 

TP addr. 76X 

of CW 
and adv. counters 



Place CW in 
p File I 



Adv. counters 
and check 



Restore 
exit of RJ 



Jump to get 
next string word 



Do presetting 
for hdl 77 
inside pseudo 

(63...- ) 



Jump to hdl. 77 
in part where 
first row 
is done 
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LA47 



Is the CW 77? 



No 



15 



Yes 



RJ to string and 

place CW CW 

TP addr 75___ 

of CW 
and adv. count 



Place CW in Op 
File I 



Restore exit of RJ 



Make presetting 
for hdl. 77 
outside pseudo 
(62___) 



Jump to handle 77 
in part where first 
row is done 
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Is the CW 76? 



No 



(IV , n ) 



16 



IV 



62 



Yes 



16 



LA53 

Thus single valUed 
63 f 64 t 65, or 67. 
RJ to generate 
TD CW 62 



RJ to store and 
place 
CW CW 
TP addr. 75.. 

of CW 
and adv. count 



Adv. counters 



Mask out bit 
after 76 (# of 
subscr. ) and 
shift to v 



Jump to get next 
string word 



Prepare to get 
next str. word 



Adv. CW of 
subscript 



RJ to store and 

place 
TP CW 62 + # of 
loc. 

and adv. count 



Index jump 
on no. of 
subscr. 



Loop to 
get all 
subscripts 
and mod. 



JIL 



Jump to get next 
string word 
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Subroutines 



Generate and place 
CW CW 
Tp addr. [0OOOO + no* of locat. 

Of CW J. ^ « O U4* 

first 2 or 3 bits 
filled by the dif- 
ferent entries 

adv. addresses, check 

exceeded regions and jump 
to get next stringout word 



III 



Handle 77 CW cases with dif- 
ferent entries for inside 
and outside pseudo operation, 
and jump to get next string- 
out word 



When zero stringout word, 
place RJ CW CW , 

10 1 (was put 
aside by II) and clear both 
"insides" and adv. resp. 
clear counters and go to 
get next stringout word 



o 



II 



Generate and put 


aside 




RJ 


CW CW 






10 


1 






Advance index "inside 


some- 


thing" 


and jump 


to get 


next 


String. 


word 







IV 



Generate 


i and 


place TP CW 


62 


+ no 


^ of location 


Restore 


subrout. and advance 


counters 


> with exceeded reg. 


check. 


Only 


used in RJ 


by III £ 


and 



VI 



Check 


whether 


• CW is 


already 


in OP 


File I, 


When 


not, 


place 


it there and s 


adv # 


with < 


sxceed. 


region 


check 


Only i 


used in 


RJ by V 



Compute Generator 
Regions 



RE 
RE 
RE 
RE 
RE 
RE 
RE 
RE 
RE 

RE 
RE 
RE 
RE 



RE 
RE 
RE 
RE 
RE 
RE 
RE 



LA2512 
LB2710 
LC3117 
LJ3172 
LK3213 
L03217 
LS3230 
LT3241 
LV3251 

LP2000 
LQ5360 
LR6777 
LU7777 



RE LD3263 

RE LE5360 

RE LI7000 

RE LF3300 



CW1211 

BK2242 

OP1047 

WA653 

UP421 

BQ632 

WB677 



Main program 

Subroutines 

Constants 

Checks for exceeded regions 

Alarm print 

Alarm (> region LF) 

Alarm (> 1777) 

Alarm (> region LE) 

Alarm (> region LI) 

Constant for last addr. + 1 of exit 

Constant for last addr. + 1 of region LF 

Constant for last addr. + 1 of region LE 

Constant for last addr. + 1 of region 

Temporaries LI should always 

Generated coding lfollow LE so that in 
Storage for constants Jthe end when adding 
Op File I the generated con- 

stants to LE the re- 
gion never can be ex- 
ceeded 



K Generation subroutines used 
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IA 

MJ 

1 RP 



© 

(7) 



® 




TP 
RP 
TP 
10 
SP 
TP 



10 TP 

11 TP 

12 TP 

13 TV 

14 TP 

15 TP 

16 TP 

17 RA 

20 TP 

21 TP 

22 EJ 

23 EJ 

24 TP 

25 TJ 

26 TP 

27 QT 

30 EJ 

31 EJ 

32 TJ 

33 RJ 



34 MJ 

35 TP 

36 RJ 

37 MJ 

40 RJ 

41 MJ 

42 TP 

43 TV 

44 TP 

45 MJ 

46 TJ 

47 TP 

50 QT 

51 EJ 

52 EJ 

53 RJ 



LA 



10014 

LC 

10005 

LC 



BK3 

A 

A 

BK1 

LC20 

LC6 

LA5 

LC2 

LC22 

LA20 

BK3 

LD6 

LC 

LC7 

LC 

ID 

LD6 

LC23 

LC23 

LC17 

LC15 

LB36 





LC2 

LB36 



LB36 



LD6 

LC34 

LC2 



LD1 

LD6 

LC23 

LC23 

LC10 

LB133 



54 MJ 



LAI 7 

LD1 

LB32 

LA17 

LB37 

LB176 

LD13 

LA22 

LD 

LA17 

LA74 



LD7 

LA55 

LA60 

LB116 

LA17 



Exit 

Clear temporaries 

Clear space for prelude 
Const, used by LA14 

Place sent. CW in prelude and Op File I 

Place XS3 code of line number in Op File I 
Prepare exit line in prelude 

Set starting value in temporaries 

> (Pre -advanced) bring next string-out word 

in storage LD6 and to A 

[ Is it zero? 
) Is itA.? 

> Are we inside something? 

Put string-out word — >Q 
Mask out operation code into LD7 and A 
CW type 77? 
CW type 61? 
CW type 4? 

Left only CW type 64, 65, 66; jump to set 
aside RJ CW CW 
10 1 
Go to get next string-out word 
Set index "inside pseudo operation' 



Jump to set aside 



Jump to set aside 



CW77 



RJ CW CW 
10 1 
Go to get next string-out word 

RJ CW CW 
10 1 
Jump to handle 77 CW 

Save CW 61 in LD13 v address 

Change exit for zero string-out word to 

LA113 
Set "inside something" to 1 
Jump to get next string-out word 
Are we inside pseudo? Yes — *• LA74 
In parent, but not inside pseudo: 

mask out Operation Code 
CW type 77? 
CW type 76? 

Left only type 63, 64, 65 or 67: go to 
generating with 62. .. 



CW4 



CW61 



inside 
some- 
thing 
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55 RJ LB14 



LB21 






56 RJ 


LB143 


LB134 


57 MJ 





LB112 


60 RJ 


LB133 


LB167 



61 


TP 


1X21 





62 


QT 


LD6 


LD10 


63 


LQ 


LD10 


36 


64 


TP 


LC46 


Q 


65 


QT 


LD6 


A 


66 


AT 


LC15 


LD6 


67 


MJ 





LA70 


70 


RA 


LD6 


LC2 


71 


RJ 


LB133 


LB116 


72 


IJ 


LD10 


LA73 


73 


ZJ 


LA70 


LA17 



103 RJ 

104 MJ 



107 QS 
110 RJ 



LB143 




105 RJ LB14 



106 TP LC23 



LC14 
LB14 



} 
} 



74 


TP 


LD6 


Q 


75 


QT 


LC23 


LD7 


76 


EJ 


LC23 


LA102 


77 


EJ 


LC12 


LA105 


00 


RJ 


LB133 


LB160 


01 


MJ 





LA17 


02 


RJ 


LB14 


LB23 



} 



LB134 
LB114 

LB15 



LD6 
LB15 



RJ to gener. and placing 
CW CW 

TP Addr.75 

of CW 
RJ to taking care of Op 

File I 
Jump to handle subscr. 

var. case 
RJ to gener. and placing 
CW CW 

TP Addr. 75 

of CW 

Mask out bit # of subscripts 

# of subscr. in v of LD 10 

Prepare to get next string- 
out word 

Bring CW-1 of first sub- 
script in storage LD6 

Space filling jump (free) 

Up date CW 

Jump to generate and place 
TP CCWJ 62...+ * of locat. 

IJ on # of subscr. 

Jump to get next string, 
word 



Operat. code — > A and LD7 

CW type 77? 
CW type 66? 
Left only CW type 64, 65, 

or 67 
Go to get next string, word 
RJ to gener. and place 

CW CW 

TP Addr. 76X... 
of CW 
RJ to take care of Op File 1 
Jump to handle subscr. 

var. case 
RJ to gener. and place 

CW CW 

TP Addr. 61... 
of CW 
Put mask for CW code — Q 
Change CW in LD6 to sent. 

CW25... 



CW Type 77 
(not inside 
pseudo) 



CW type 76 
(no— never! — 
inside Pseudo- 
Op) 



Subscr. -1 
(zero jump 
needed since 
index by 1 too 
high) 



In parenthe- 
ses inside 
pseudo op. 



CW type 77 in- 
side pseudo 



RJ to gener. 

cw 

TP Addr. 
of CW 



and place 
CW 
61... 



CW type 66 
inside pseudo 
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Ill RJ LB143 LB134 







112 M J 



113 RA 

114 SP 

115 TU 

116 TU 

117 TP 



121 TV 

122 TV 

123 MJ 

124 RP 

125 TP 

126 TV 

127 RA 

130 RJ 

131 RP 

132 TP 

133 MJ 

134 TV 

135 RS 

136 TV 

137 RS 

140 RS 

141 TV 

142 LQ 

143 RS 

144 TV 

145 RA 

146 RA 

147 ST 

150 RS 

151 SP 

152 AT 

153 TV 

154 RA 

155 LQ 

156 RA 

157 RA 

160 RA 

161 RA 

162 RP 

163 TP 

164 TP 

165 RJ 

166 MJ 



LD13 

A 
A 
LC24 



120 AT LD5 



A 
A 


30004 

LC30 

LC36 



LA17 

LC2 

17 

LC30 

LC31 

A 



LC30 
LC31 
LA167 

LA126 
30000 
LA22 



} 



} 



} 



} 
} 

v 



RJ to take care of Op 
File I 

Jump to get reset string- 
out word 

Adv. CW by 1 

Move CW + 1 to u addr. 

TU c 3 i : 
Place CW in u of Tv £ ] £ ] 

n * Minion • * A ^ f° rm excl. 10 lines 
Put "1003" in v of A\ „ next addr+ 2 „ 

Add # of addr. in genjer. coding 

excl, 10 lines 
Place "next addr >T y+ 2*^excl. 10 

lines) in v of TV c ic d 
Place "next addr." (incl. 

10 lines) in RP command 

Place 4 rows of generated coding 

Restore exit of case zero 
string, word 

Adv. counters resp. clear 
# of locat. rel. 100 and 
both insides 



Fill v of LE (LE7+.*.)-LE 



} 



Case 

CW 
61... 



6 (6 is prelude 



Fill v of LEI 

(LE7 +*..) - LE - 
coding) 

Fill v of LE2 

Fill v of LF 

Fill v of LE6 

(second addr. of next routine) 

Fill v of LF1 

(LE6-LC20) 

Prepare moving of generated 
constants 



Add constants to # of generated 
addresses 

Move constants to end of coding 



Bring generated coding to tape 



Go to 

end 
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167 SP 

170 TU 

171 TP 

172 RJ 

173 TV 

174 TV 

175 MJ 
CA 



LC30 

A 
LC2 

CW 



ID3 



LA 176 



17 Come from LA123 

LC32 

A 1 

rw t Get a CW for const. 1 

LC32 

LA125 

LA124 Jump back to coding 



Patch for generating 
RA addr. 1 



I exit 
T 61 

Z 62 

Z 75 

J 76 



II 



II exit 
II 



24 



II 



25 



III 



IA 

SP 

1 AT 



TU 
MJ 
TU 
RA 
TV 
TP 



10 RA 

11 RJ 

12 RA 

13 RA 

14 MJ 

15 TV 

16 MJ 

17 TV 

20 MJ 

21 TV 

22 MJ 

23 TU 

24 RA 

25 TP 

26 SP 

27 TV 

30 RA 

31 MJ 

32 SP 

33 AT 

34 AT 

35 TP 

36 MJ 

37 TP 

40 QS 

41 MJ 

42 TP 

43 QS 

44 MJ 

45 RP 

46 TP 

47 RJ 
50 TU 



} 



Form CW CW in next storage addr. 

save CW in u in LC36 (used by LB135 in VI) 

Generate 

TP 01... CW -I- * of locat. and place it 
for gener. const. CW CW 
for gener. code TP 01... CW f Sloe. 



Advance counters 

Put 61000 in v of LC26 
Put 62000 in v of LC26 
Put 75000 in v of LC26 

Get next string-out word (in advance, 
not yet officially) into ID7 

Shift # of subscripts 9 ]n bits to the left 

Put 76X000 in v of LC26 



Form RJ CW CW 



10 



?} 



and set it aside 



Set index "inside something" to 1 
Only used in RJ 

Make 24... CW before going to II 



Make 25... CW before going to II 



Clear temp, storage Handl. of subscr. var, 

Get next string-out word— >A 
Modulus -^u of LD10 
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51 


TV 


A 


LD7 


52 


RS 


LD7 


LC2 


53 


SP 


LD10 


71 


54 


RJ 


CW 


CW1 


55 


TP 


A 


LD10 


56 


IJ 


LD7 


LB60 


57 


MJ 





LB103 


60 


RJ 


LB111 


LB106 


61 


TU 


A 


LD12 


62 


TV 


A 


LD11 


63 


TP 


LD11 


A 


64 


RJ 


CW 


CW1 


65 


TU 


A 


LC26 


66 


RJ 


LB133 


LB121 


67 


IJ 


LD7 


LB71 


70 


MJ 





LB103 


71 


SP 


LD12 


71 


72 


RJ 


CW 


CW1 


73 


TU 


A 


LC26 


74 


RJ 


LB133 


LB121 


75 


IJ 


LD7 


LB77 


76 


MJ 





LB103 


77 


RJ 


LB111 


LB106 


100 


RJ 


CW 


CW1 


101 


TU 


A 


LC26 


102 


RJ 


LB 133 


LB121 


103 


TU 


LD10 


LC26 


104 


RJ 


LB133 


LB 121 


105 


MJ 





LA17 


106 


RA 


LA20 


LCI 


107 


TU 


LA20 


LB110 


110 


TP 


30000 


A 


111 


MJ 





30000 


III, 112 
62 113 


TV 


LC40 


LB121 


MJ 





LB45 


III, Q 114 
63 115 


TV 


LC41 


LB 121 


MJ 





LB45 


IV., 116 
16 117 


SP 


LD6 


17 


TU 


A 


LC26 


120 


MJ 





LB122 


IV 121 


MJ 





30000 


IV, 122 
62 123 


TV 


LC16 


LC26 


MJ 





LB125 


IV, Q 124 
63 125 


TV 


LC15 


LC26 


RA 


LC26 


LD2 


126 


TV 


LD3 


LB127 


127 


TP 


LC26 


30000 


130 


RA 


LD2 


LC2 


131 


RJ 


LJ12 


LJ11 


132 


RA 


U>5 


£02- 


IV . 133 
VI exl1 134 


MJ 





30000 


TP 


LC25 


Q 



} 

) 



ff of subscr. -1 



v of LD7 



} 
} 

} 
} 



Get const. CW for mod. 

CW for mod. — >u of LD10 
First IJ on # of subscripts 

Get next string -out word->A 
Store multiplier 2 in LDl2(u) 
Store multiplier 1 in LDll(v) 

Get CW for multiplier 1 

Generate and place TP [CW mult. ]] 62 --« 



for multipl. 1 
Second IJ on # of subscr. 



63...#of 
locat. 



Get const. CW for mult. 2 

Generate and place TP [CW mult. 2]£g ' 
Third IJ on # of subscr. 



63...» of 
locat. 



} 
} 



} 



\ 



Get next string-out word— >A 

Get const. CW for mult. 3 (this string 

word has data only in v) 
Generate and place TP [CW mult. 3]*> 2 --- ff of 

for multipl. 1 M QcaU 

Generate and place TP [CW modulus]^ 2, * •# f 
Go to get next string-out word locat. 

Get next string-out word to A 
(used as subrout. in III) 

Set jump to IV^2 in IV 

Set jump to IV^3 in IV 

Prepare IV., 

Generate and place TP CW 
Jump to right entry 
Place 62... in LC26 

Place 63... in LC26 

Add # of locat. to £S. . . in LC26 v address 
Place "next addr, for gen, coding" in NI 
Place one line of generated coding 

Adv. counters and check exceeded region 



Mask CW at hand — >A in u address 
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135 


QT 


LC36 


A 


136 


RP 


20000 


LB140 


137 


EJ 


LF2 


LB143 


140 


TP 


A 


LF2 


141 


MJ 





LJ3 


142 


RA 


LB 136 


LCI 


-^^i^^ 


MJ 





30000 


V 144 


TV 


LD3 


LB146 


145 


RP 


30002 


LB147 


146 


TP 


LD13 


30000 


147 


RA 


LD5 


LC2 


150 


RJ 


LJ12 


LJ10 


151 


RP 


10003 


LB153 


152 


TP 


LC 


LD 


153 


TU 


LD13 


LC36 


154 


RJ 


LB143 


LB134 


155 


MJ 





LA17 


I,„ 156 
63 157 


TV 


LC15 


LC26 


MJ 





LB 


IV 160 
U 161 


SP 


LD6 


17 


TU 


A 


LC26 


162 


MJ 





LB124 


163 


TP 


LA34 


LA23 


164 


RJ 


LA22 


LA17 


165 


TP 


LC45 


LA23 


166 


MJ 





LB144 


167 


SP 


LD6 


17 


170 


TU 


A 


LC26 


171 


TV 


LC11 


LC26 


172 


MJ 





LB125 


173 


TP 


LC20 


LC26 


174 


RJ 


LB133 


LB126 


175 


MJ 





LA134 


176 


TP 


LC46 





177 


RA 


LA20 


LCI 


200 


TU 


LA20 


LB201 


201 


QT 


30000 


A 


202 


EJ 


LC2 


LB206 


203 


TJ 


LC5 


LB205 


204 


RA 


LA20 


LCI 


205 


RA 


LA20 


LCI 


206 


MJ 





LA17 




CA 


LB207 





} 

} 

} 
} 
} 



} 



Compare whether already in Op File 1 

When not yet in Op File 1, put CW in it 

(TP because space is not cleared before'.) 

Aj jj (1 in v) 
Advance addresses / . . n 

Cl in u) 

Used only in RJ 

Place the 2 rows that have f RJ CW CW 
been set away I 10 1 

Adv. counters 

Clear all "inside V* and counter for 

number of addr. in array 
Put CW in u of [£36 
RJ to take care of Op File 1 
Jump to get next string-out word 

Prepare I,« 
Prepare IV _ 

Shortcut (skip everything up to 

next zero word) 
Restore LA23 
Jump to handle zero word situation 

Place MJ in end 



Mask for last 3 bits, come from LA41 
Advance to next string-out word 

Mask out # of subscripts 

Is it 1? 
Is it < 4? 

It is 4 : advance once more 
It is 2 or 3: advance once more 
It is 1 : go to get next string-out 
word 
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Constants 



IA 



1 








01 



10 

11 

12 

13 

14 

15 

16 

17 

20 MJ 

21 

22 

23 

24 

25 

26 TP 

27 

30 TU 

31 TV 

32 RA 

33 RJ 

34 

35 RJ 

36 

37 

40 TU 

41 TV 

42 TP 

43 

44 

45 EJ 

46 

47 TP 

50 

51 MJ 

52 AT 
CA 



LC 



i 















1 
2 
3 
4 
LE7 



22777 77777 



76000 
75000 
66000 
24000 
25000 
63000 
62000 
61000 
01000 
00700 



10000 10000 

77000 

1003 
77777 
30000 30000 

1 1 
30000 30000 
30000 30000 
30000 30000 
30000 30000 
LA113 

30000 LB 144 









A 



LE 

LC7 



A 





LD6 

LC53 



LE 

LB122 

LB124 

LF 

6 

LF 

LB 173 

7 

LQ 

LR 

LP 

LU 



XS3 "A" 



These four rows belong together 
(the 30000 must not be messed up) 



This instr. -const, must have zero's 



For exceeded region checks 
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Exceeded Region Tests 





IA 


LJ 











TJ 


LC51 


LA 164 


1 




1 


TU 


LS 


LK1 


J Gen. constants 


2 


MJ 





LK 




Alarm 


3 


RA 


LB140 


LC2 


' 


I 


4 


TJ 


1X47 


LB142 




> Region LE 


5 


TU 


LT 


LK1 


J 




6 


MJ 





LK 




Alarm 


7 


RA 


LD3 


LC3 


"" 




10 


RA 


LD3 


LC2 






11 


RA 


LD3 


LC2 




* Region LF 


12 


TJ 


LC50 


30000 






13 


TU 


LO 


LK1 


- 




14 


MJ 





LK 




Alarm 


15 


RA 


LB1 


LC2 


1 




16 


TJ 


LC52 


LB4 




Region LI 


17 


TU 


LV 


LK1 


J 




20 


MJ 
CA 




LJ21 


LK 




Alarm 
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Alarm Entrance 





1A 


LIS, 













RJ 


WA 


WA2 








1 


TP 


30000 


UP3 








2 


RJ 


UP2 


UP 








3 


MJ 
CA 




LK4 


BQ6 
















A 1 A«.m 1 

nxaiui x 






IA 


LS 
















LSI 











1 


40 


LS2 


7 








2 


32 


30503 


05424 




Generated code 




3 


66 


30270 


12651 




exceeds 1777 




4 


27 


30013 


07226 




addresses. 




5 


30 


30276 


50104 








6 


12 


12120 


12427 








7 
.0 


27 
65 
CA 

IA 


54306 
22777 
LS11 

LT 


56530 
77777 


Al; 


arm 2 










LT1 











1 


40 


LT2 


6 








2 


54 


30323 


45150 




Region for Op File 


1 


3 


01 


31515 


40151 




is exceeded. 




4 


52 


01313 


44630 








5 


01 


04013 


46501 








6 


30 


72263 


03027 








7 


30 
CA 


27227 
LT10 


77777 









Alarm 3 





IA 


LO 










L01 





1 


40 


L02 


7 


2 


54 


30323 


45150 


3 


01 


31515 


40132 


4 


30 


50305 


42466 


5 


30 


27012 


65127 


6 


34 


50320 


13465 


7 


01 


30722 


63030 


10 


27 


30272 


27777 




CA 


LOU 





Region for generated 
coding is exceeded. 
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Alarm 4 





IA 


LV 










LV1 





1 


40 


LV2 


10 


2 


54 


30323 


45150 


3 


01 


31515 


40132 


4 


30 


50305 


42466 


5 


30 


27012 


65150 


6 


65 


66245 


06665 


7 


01 


34650 


13072 


10 


26 


30302 


73027 


11 


22 


77777 


77777 




CA 


LV12 





Region for generated 
constants is exceeded. 
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Temporaries 



Compute Generate 



LD 
1 
2 
3 

4 

5 

o 
7 

10 
11 
12 
13 



r l 
[ ] 

10000 10000 
1 



14 10 



Index "inside something" 

Index " pseudo oper. 

Running # adv. by IV(+ l) s 18(= 0), 1(4- 

Addr. of gen. code adv. by 

V(4- 2), IV(4- 1), 18(4- 4), 1(4- 1) 
CW of gener. const, adv. by 

I(+ 1 in u and v) 
adv. by V(4- 1) 

IV(4- 1), 18(4- 4), 1(4- 1) 
Next string— out word 
Working space 
Working space 
Working space 

Working space r RJ cw cw 
Storage space for < ft ^ 



1) 



cleared 
in begin- 
ning 



cleared 
later 
J again 



Generated Code: 



LE 


sent.CW 


1 




2 




3 




4 




5 


Line & XS3 code 


6 


MJ 01000 



cleared in 
beginning 



Set by LA12 and LA160 



LF sent.CW 
1 
2 
3 
4 



OP File I 



} 



not cleared 
in beginning 



LI 
1 



Generated Constants 
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Vary Generation Routine 

The Vary generator uses the string-out and the Vary File as built during 
the Translation Phase to prepare the relative coding necessary to perform the 
functions of the input Vary sentence. This generator also provides an Op 
File I item to be used by the Segmentation Phase. The relative coding is 
later modified by the Processor according to the information furnished by the 
Allocator. 

The generated Vary coding may be broken down into the sequence of functions 
performed by the Vary sentence. 



® 

® 

© 

® 



© 



MJ - OOOOO -[ 
MJ - OOOOO - 
MJ - OOOOO -[ 



Set initial va 



4 
or 



] 



lue(s)} 



i)} 



Jump to first statement], 
in range J 

Tests for completion of 
Vary. If finished, to © 

Modify variable(s) J 

Back to © } 

Tests for indefinite! 
loop, if required J 

Back to © } 



Resume entry 
Normal entry 

Exit as specified in string-out 
or Vary File 



The call word from the u-portion of the Vary File item is filled into the 
Exit instruction by the Vary generator when the transfer component is implied 
rather than stated. 

The return to the Vary coding from the last sentence in the Vary's range 
is accomplished by the insertion of the Vary call word (from the v-portion of 
the Vary File item) into the Exit line of the generated coding for the last 
sentence in the range. This insertion is effected by the RG routine of 
the Generation subroutines. The Exit line of the last sentence in the Vary 
range will return to the Vary coding at the Resume Entry line. 
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Clear prelude 
area - 6 words, 
and Op File I 
area - 5 words 





o 

00 




Exit sentence 
number stated? 



Yes 




Search Vary File 
for sentence num- 
ber of last sen- 
tence in Vary Range. 
Save associated 
exit call word 




Resume 

exit 
imp_liedj 

No 





Is stated > 
exit a resume?, 



Yes 



Store exit call 
word in exit 
line in GL 



No 



■© 



Is exit call 
word a Vary 
call word? 



Yes 









10-0-1 

— > GL 



\ 




*© 



3 
<t> 
i-S 
03 
r+ 
O 



o 

o 

sr 

03 

>-i 
c+ 
CO 




C2 



Set index CT to 
number of with 
words in sentence 



First indicator 
stringout address 

— > CT2 




Is initial \Yes 
value absolute" — * 
value? 






o 



11 



-©* 



Insert call 
word of initial 
value in u~ 
portion of GL 



Insert call 
word of vari- 
able in v- 
portion of GL 



-*\ / 




Store address of 
next generated 
instruction in CT3 





Set index CT to 
number of with 
words in sentence 



First indicator 
stringout address 
— -> CT2 




Is •dummy* vari- \ y e 
able fixed point? 



No 




\^i(ny^ 



TM- -Q 

— > GL 



<2> 



SA 



Advance CT2 
to next vari- 
able's indi- 
cator 



"Have all *set 

initial value* \ Ye s. 
Instructions been 
V built? y 



"<D 



10-0-1 
— *GL 



•fr 



Fill in v-por- 
tion of resume 
entry line 



-0 




Is variable a 
'dummy* variable 
of subprogram? 



Yes 



Insert call word 
of increment in 
u-portion of GL 





Is limit 
variable ab- 
solute value? 



Yes 



M13 



Q^v^hS^ 



Insert call 
word of limit 
in u-portion 
of GL 




Insert call 
word of vari- 
ables in u- 
portion of GL 




-A*© 




15 



TJ-Q-01002 

— > GL 



<g> 




Advance CT2 to 
next variable's 
indicator 



Have all "tests 
^ 4 for completion* 



instructions been 
enerated? 



No 





17 



o 



18 



20 



TM- 



GL 




FS~A-__. 

— > GL 




TJ» 



-01002 
->GL 



Insert call word 
of first tempo- 
rary storage in 
v -portion of GL 



Insert call word 
of variable in 
v-portion of GL 



Insert call word 
of first temporary 
storage in im- 
port ion of GL 



Insert call word 
of increment in 
u-portion of GL 




fRS 



Is limit vari- 
able absolute 
value? ^ 



No 





Is limit 
variable ab- 
solute value' 



Insert call word 
of limit in u- 
portion of GL 



Set number of 
working temps (10) 
in 3rd word of 
prelude 




Ye; 



TM-___.-A 
— > GL 



Insert call 
word of limit 
in u-portion 
of GL 



TM-Q-A 
— >GL 



4^® 



-K20 



Set second word 
of Op File I item 
equal to 1 



-® 



•< 

05 
»-l 
«<! 

Q 
3 
CD 
>-J 

03 
c+ 
O 

*~t 

o 

03 
•I 
c+ 




21 



Set index CT to 
number of with 
words in sentence 



First indicator 
stringout address 
— > CT2 




Is variable a 
'dummy* variable of 
subprogram? 



Yes 




Is variable > 
fixed point?. 



Yes 



•© 



No 




23 



Is 'dummy* vari 
able fixed point? 




Yes 



•© 



Is increment^ 
absolute value?)-* 



TM- 



-> GL 



No 



*® 



-Q 



Insert call word of 
increment in u-por- 
tion of GL 





Insert call 
word of vari- 
able in v- 
portion of GL 




Is increment* 

absolute 

value? 




Insert call 
word of in- 
crement in 
u-portion 
of GL 




Insert call 
word of vari- 
able in v- 
portion of 
GL 




< 

05 

CD 

3 
CD 

05 
r+ 
O 



o 
-■I 
o 




27 



29 



Is increment 
absolute 
value? y 




Insert call 
word of in- 
crement in 
v-portion 
of GL 



Yes 



TM- -Q 

— »GL 




Insert call 
word of in- 
crement in 
u-portion 
of GL 



Advance CT2 
to next vari- 
able's 
indicator 




ave all incre- 
ment variable in-1 
structions been 
generated? 





Insert call 
word of vari- 
able in 
u-portion 
of GL 




Is increment 

absolute 

value? 




Yes 



MJ-O- 

-^►GL 



Store address 
from CT3 in 
v-portion of 
GL. (address 
of jump to 
range) 



CRS 




Insert Q ad- 
dress in 
v-portion 
of GL 





31 



o 

o 

3* 
05 

>-i 

CA 




Set index 
CT to number 
of with words 
in sentence 



First indicator 
stringout address 
— > CT 2 




Is test 

indicator 

equal to zero? 




Yes 



No 



■Q— -*€>-* 



Set CB 







Store address of next 
generated instruction 
in CT3 




Insert address of 
first relative constant 
in u-portion of GL 



TP-___ 
— >GL 



Insert callword 
(50002) of flex print 
fixed library routine 
in v-portion of GL 




Insert address of first 
temporary in v-portion 
of GL 



RS 



RJ-50002-50002 
»GL 



CW Find callword 
for constant 79 



10-0-3 



■»GL 



Insert call word for 
79 in u-portion 
of GL 



RS 



ST 



RS 



10-2-0 
— *GL 



TP-10001 -50002 

— >GL 
(10001 is address of 
second relative constant) 



TP - - 

>GL 



ST 



RS 




MS-O- 
— ->GL 




/ 36 V 



Insert address of this 
i ns true tip n in v - 
portion of GL 
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40 



YES 







Is test indicator 
= 22? 
V (B variable, C-A = 0) 



Change entry line of 
generated routine to 
jump in at next instruc 
tion generated 




43 



YES 







Modify com- 
ponent of 
form A(B)C 



Is test indicator 

= 14? 
(A,C variable B<0) 




NO 



Is test indicator 
= 10? 
(A f C variable, B> 0) 




NO 



Is test indicator 

= 30? 
(A and/or C, B vari 

able) 




Is test indicator 
= 21? 
v(B variable, C-A<0) 



Test indi- 
cator = 20, 
(B variable, 
C-A>0) 



NO 
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40 



41 



o 




42 



TP- -A 

— >GL 



Insert call 
word of in- 
crement In 
u-portion 
of GL 





s Increment 
absolute 
value? 



Insert relative address 
of second following 
instruction (NI+1) in 
v-portion of GL 




Insert relative 
address of next 
instruction in 
u-portion of GL 



Insert call 
word for con- 
stant zero in 
u-portion of 
GL 



MJ-0- 

— *>GL 



Insert relative 
address of alarm 
entry (from CT3) 
in v-portion of GL 



:k-^(54) 




Insert call 
word for in- 
crement in 
u-portion of 
GL 



Insert relative address 
of alarm entry (from 
CT3) in v-portion of 
GL 



-© 



^© 



OS 

*<! 

O 
CD 
3 
CD 

CD 
c+ 

o 

>-* 

(-• 
o 
% 

o 

sr 

n 

r+ 
(A 




Insert call word 
of increment in 
u-portion of GL 



-WrsV 






SJ-.__-__. 



GL 



Insert relative 
address of next 
instruction in 
u-portion of 
GL 



Insert relative 
address of alarm 
entry (from CT3) 
in v-portion of 
GL 




fcS 



541 




44 



Is increment" 

absolute 

value? 




No 



— > gl v_y 



0J 




TM- -A 

— >GL 



Insert call 
word of in- 
crement in u- 
portion of GL 





47 



SJ~„_-___ 



Insert relative 
address of next 
instruction in 
v-portion of GL 




Is initial \Yes, 
value absolute) — w48 
value? J 



No 



Add four (4) to relative 
address of next instruc- 
tion 



*© 




48 



Add five (5) 
to relative 
address of 
next instruc- 
tion 



"® 




49 



Insert calculated 
relative address 
in u-portion of GL 




ZJ- 



GL 



Insert relative 
address of next in- 
struction in 
u-portion of GL 



Insert relative 
address of alarm 
entry in v-portion 
of GL 




a 

CD 

3 
CD 



o 

CD 




51 



Is increment 
absolute 
value? > 



Ye^ 



No 



MJ-0-— _ 
— > GL 



Yes 



Is limit 
absolute 
value? 




Add three (3) 
to current rela- 
tive address 




52 



-^53 



Add four (4) to 
current relative 
address 



Insert calculated 
relative address 
in v-portion of 
GL 



*® 



o 

o 

£U 

CO 





54 



Set indicator 
(CT4) when 
tests are 
generated 



^(55)^ 



Advance CT2 
to next vari- 
able's indi- 
cator 




Have indicators 
for all variables 
been checked? 




as test 

coding been 

generated? 




No 



-® 



*® 




56 



57 



o 

03 



cvV- 



Put in relative con- 
stants and Flex codes 



Adjust Op File I item 
to account for gen- 
eration of tests 



Adjust prelude to ac* 
count for generation 
of tests 




Insert sentence 




Number of lines 


call word in prel- 




subject to modi- 


ude and in Op 


— » 


fication to 


File I item 




second word of 
prelude 



Number of lines in prel- 
ude and routine to first 
word of prelude 




Sentence number to sixth 
word of prelude 



Number of words 
in operating rou- 
tine to second 
J word of Op File I 
item 




Insert call word 


of 


last 


sentence 


in 


third 


word of 


Op 


File 


I item 



Insert call word 
of exit sentence 
in fourth word of 
Op File I item 



Insert number of 
lines in Op File 
I item in first 
word of item 



Advance relative 
address counter 
(CT1) by one 



Exit, 





Transfer five words of 
stringout (next variable 
information) from ad- 
dress given by CT2 to 
temporary storage 
(TE0-TE4) 




Store one instruction 
from EL in next location 
of generated coding 
region 



Advance to next word 
in generated coding 
region 



Exit, 





\ Exit / 

~A Var v 

Generator 

v 




0) 

o 

CD 
3 
CD 
»-S 
03 
<r+ 
O 
■-J 



o 

S3 

o 
tr 

A3 
CO 




Is initial 
^ value absolute 
value? 
Yes 




TP- -A 

— >GL 



_^6o) Gy-* ~ ~ -»(6o)-* 



Insert call word 
of initial value 
in u-portion of GL 



^RSW(6?) 




61 



63 



o 

03 

to 



67 



Is limil 
absolute 
value?. 




\ Yes 




>' 


TM- _-Q 

— >GL 



Insert call 
word of limit 
in u-portion 
of GL 





Insert call word of 
limit in u-portion of 
GL 



64 




Is limit 

absolute 

value? 



No 




TP- 



GL 



A -@ 




Exit 



RS> 




Yes 





TM- -Q 

— » GL 



Insert call word 
of initial value 
in u-portion of 
GL 




Insert relative 
address of alarm 
entry (from CT3) 
in v-portion of 
GL 




Is limit 
absolute 
value? 



No 



Yes 



a/S) 



Insert call word 
of limit in u- 
portion of GL 





s initial x Yes 
value absolute) 
value? 




Insert relative 
address of alarm 
entry (from CT3) 
in v-portion of 
GL 




Is initial 
value absolute 
value? 



Yes 



No 



Insert call word 
of initial value 
in u-portion of 
GL 




03 
*1 

*-< 

CD 
3 
<t> 
f* 
23 
c+ 
O 
t-f 

**! 

V—" 

O 

o 

sr 

03 




cv 



Set index 
CT5 to six 



Sentence 
number 

— -» Q 




70 



ave all XS-3 digits 
been converted to Flex 
code (CT5=0)? 



Yes 




Next digit 



03 > digit? 



Yes 



4™ 



No 



Subtract 03 
from XS-3 
digit 



< 

»-* 

CD 

3 
CD 

71) 2 

r+ 
O 



<n) 



O 
CO 




71 



Add base address of 
Flex code table 



Add required Flex code 
into relative constant 
word 



o 

n 

cr 

w 



0- 



Space character add 
03 to XS~3 character 



Add 04 space code into 
relative constant word 



*® 



To convert XS-3 sentence number to Flex code, insert in relative constants 



Vary Generator Regions 



RE 


VY2512 


(1) 


RE 


IN2513 


(4) 


RE 


VA2517 


(50) 


RE 


VE2567 


(40) 


RE 


CE2627 


(21) 


RE 


VB2650 


(23) 


RE 


FX2673 


(24) 


RE 


FL2717 


(27) 


RE 


VC2746 


(12) 


RE 


FG2760 


(16) 


RE 


FD2776 


(22) 


RE 


VT3020 


(51) 


RE 


DJ3071 


(37) 


RE 


DK3130 


(12) 


RE 


DL3142 


(35) 


RE 


DM3177 


(13) 


RE 


EM3212 


(23) 


RE 


EN3235 


(23) 


RE 


VS3260 


(24) 


RE 


BP3304 


(27) 


RE 


CV3333 


(20) 


RE 


RS3353 


(3) 


RE 


ST3356 


(3) 


RE 


SA3361 


(4) 


RE 


CN3365 


(73) 


RE 


RC3460 


(13) 


RE 


CT3473 


(6) 


RE 


GL3501 


(1) 


RE 


TE3502 


(5) 


RE 


PF3507 


(5) 
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RE 


CW1211 


RE 


LS1465 


RE 


OP 1047 


RE 


BR537 


RE 


KI1336 


RE 


LW1250 


RE 


UP421 


RE 


WA653 


RE 


BQ632 


rtT? 


r» r/nn Mt\ 


RE 


PL5360 


RE 


GC5366 


RE 


VF47101 



Obtain CW for constant 

Insert Library CW in List I 

Write Generated routine and Op File I 

on tape 
Compiler of computer error routine 
Illegal jump check routine 
Sentence CW locating routine 
On line print routine 
Print heading routine 
To rewind tapes 
Sentence string -out 
Op File I 
Generated coding 
Vary File 



IA 


VY 


MJ 





CA 


VY1 



Exit line 






RP 


10006 


IN 2 \ 
PL J 


Zeroize Prelude area 


1 


TP 


CN 




2 


RP 


10005 


IN4"I 
PF J 


Zeroize Op File I area 


3 


TP 


CN 


{VAO = IN4J 


4 


MJ 





VA 




CA 


IN5 
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CD 



© 



® 





IA 


VA 




VA 


TP 


CN34 


GL 


1 


RJ 


RS2 


RS 


2 


TP 


CN34 


GL 


3 


RJ 


RS2 


RS 


4 


TP 


CN34 


GL 


5 


SP 


BK7 





6 


ZJ 


VE 


VA7 


7 


TU 


VF 


VA11 


10 


SP 


BK6 





11 


RP 


30000 


BR3 


12 


EJ 


[VFl] 


VA13 


13 


SP 


VA11 





14 


LQ 


Q 


17 


15 


TU 





VA11 


16 


SS 








17 


SA 


VA12 





20 


TU 


A 


VA12 


21 


TU 


A 


VA25 


22 


TU 


A 


VA30 


23 


TU 


A 


VA31 


24 


TP 


CN15 





25 


QT 


30000 


A 


26 


EJ 


BK3 


VA30 


27 


MJ 





VA10 


30 


TU 


30000 


CT 


31 


SP 


30000 


45 


32 


SJ 


VA33 


VA34 


33 


TV 


CN31 


CE1 


34 


LT 


10024 





35 


TV 


Q 


CT 


36 


TP 


CN55 





37 


SP 


BK3 





40 


TJ 


CN54 


VA43 


41 


QT 


CT 


A 


42 


MJ 





VA45 


43 


QT 


CT 


A 


44 


TP 


CN34 


Q 


45 


RJ 


KI 


KIl 


46 


TV 


CT 


GL 


47 


MJ 





CE 




CA 


VA50 





} 



} 
} 



MJ - ->GL 

Store 

MJ 1003 — > 

Store 

MJ - — >GL 



GL 



Is exit sentence number stated? 

No, so search Vary file for sentence 
number of last sentence in range 



Add r to VFl to find Exit call word 

Set to continue search 

Set up 

Vary call word for this Vary File 

item — > A 
Has the cor. Vary File item been found ? 
No, back to continue search 
Save Exit call word 
Is there an implied resume? 



Yes, so set © to @ 



Save Exit call word in CT V 

0^035 

Sentence CW — >Ace 

Is 26000 > Sentence CW? If yes, then 22- 

Exit CW — > A u 

Exit CW — >A U 

1 — > Q$5 indicates within Pseudo-Op. 
Illegal sentence number check 
Fill v of Exit line 
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(3) VE 





IA 


VE 









RJ 


LW 


LW1 




1 


TU 


A 


CT 


} 


2 


TV" 


n 


CT 


3 


TP 


BK10 





\ 


4 


QJ 


VE5 


VA36 


j 


5 


TP 


CN15 


Q 


} 


6 


QT 


CT 


CT2 


7 


TJ 


CN54 


VE12 




10 


TJ 


CN60 


VE32 




11 


MJ 





VE34 




12 


SP 


VF 


17 


1 


13 


SA 


CN24 





; 


14 


TU 


A 


VE26 




15 


LT 


6 


A 




16 


TP 


CN61 


Q 


} 


17 


QT 


A 


CT3 


20 


QT 


VF 


Q 




21 


RS 


CT3 







22 


LT 


43 


CT3 




23 


IJ 


CT3 


VE25 




24 


MJ 





VE34 




25 


TP 


CN15 


Q 


- 


26 


QT 


30000 


A 


* 


27 


EJ 


CT2 


VE32 


_, 


30 


RA 


VE26 


CN53 




31 


MJ 





VE23 




32 


TV 


CN31 


CE1 




33 


MJ 





VA36 




34 


RJ 


WA 


WA2 


i 


35 


TP 


CN62 


UP3 




36 


RJ 


UP2 


UP 


j 


37 


MJ 
CA 




VE40 


BQ6 





Obtain call word for Exit 
Save call word 

Is stated Exit a Resume? 

Yes, so Exit CW to CT2 V and Ace 

26000 >CW? 

No, so is 27000 >CW? If so OK 

No, so to alarm 



m + VF2 — >A U VF 

Set beginning of search 
jn — >A V 

n — >CT3 




CT3 



n 



m < 



jn 

SN 
SN 



SN 



CW26 
CW26 



SN 



SN 



SN 



m — 
n-m 

T 2 

Checked all items? 
Yes, and not found, so 

error 
Does exit CW agree 

with next Vary CW 

in Vary File? 
No, so advance to next item 

and back 
Set (cT) to (C2) to avoid gen. 10 — line 



Print alarm 

Rewind tapes and stop 



CW26 



CW22 



CW22 



CW22 
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15 TV TE1 



GL 





16 


RJ 


RS2 


RS 




17 


RA 


CT2 


CN5 




20 


IJ 


CT 


CE6 




21 


MJ 
CA 

IA 



CE22 

VB 


VB 


® 


VB 


TP 


CT1 


CT3 




1 


TP 


CN34 


GL 




2 


SP 


BK5 







3 


RJ 


LW 


LW1 




4 


TV 


Q 


GL 




5 


RJ 


RS2 


RS 




6 


TP 


CN17 


GL 




7 


RJ 


ST2 


ST 




10 


TV 


CT1 


GC 


® 


11 


TP 


BK4 


CT 




12 


TP 


CN23 


CT2 


© 


13 


RJ 


SA3 


SA 




14 


TP 


CN15 


Q 




15 


QT 


TE1 


A 




16 


TJ 


CN12 


VB21 




17 


TJ 


CN13 


FX 




20 


MJ 





FL 


© 


21 


TP 


TE1 


Q 




22 


QJ 
CA 


FL 
VB23 


FX 



} 



} 
} 



Store Exit line 

10 1 — >GL 

Store 

Set index to # of WITH words 

String-out address of 1st indicator-* CT2 

Store next variable info in TE-TE4 

Is initial value absolute value? 

Yes, so TM > GL 



>GL 



No, so TP 

TP 

TM in it - - 



TP 

TM CW init 



CW 



var 



Store 

Advance to next variable's indicator 

Have we built all 'set initial value' 

instructions? 
Yes {VBO = CE21 



Save address of JUMP TO RANGE 
MJ - GL 

To find CW of first sentence of range 

Insert CW in MJ instruction 

Store 

10 1 — >GL 

Store 

Fill in RESUME entry line 

Set index to # of WITH words 

Set address of first variable 

Transfer variable to temporary area 

CW of variable — »A. 

64000 > CW? 
No, 65000 > CW? 
No, so floating variable 
CW is 63..., so determine if fixed or 
floating 
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IA FX Fixed Variable (Build test for completion) 

12) FX TP CN27 GL TM — Q — » GL 

1 TU TE3 GL TM CW. Q — ->GL 

2 RJ RS2 RS Store inc 

3 TP TE4 Q \ T . . .. . .. . . + , 

* > Is limit variable absolute value? 

4 QJ r\d<L rXo J 

5 TP VB2 GL No, so SP 0— »GL 

SP cw 

TM L A — *GL 

6 TU TE4 GL 

7 RJ RS2 RS Store 

10 TP BP4 GL SS — > GL 

11 TU TE1 GL SS CW -> GL 

12 RJ RS2 RS Store var 

13 TP CN30 GL TM A A — > GL 

14 RJ RS2 RS Store 

05) 15 TP CN33 GL TJ Q 1002 ->GL 

QG) 16 RJ RS2 RS Store 

17 RA CT2 CN5 Advance to next indicator address 

20 IJ CT VB13 Back if all tests for completion not 

generated 

21 MJ VC 

@ 22 TP CN30 GL TM - A — >GL 

23 MJ FX6 

CA FX24 



IA FL Floating Variable. (Build for completion) 

3J) FL TP CN27 GL TM — — — >GL 

1 TV RC1 GL TM — 70000 

2 TU TE3 GL TM CW 70000 (CW of increment.) 

3 RJ RS2 RS Store 

4 TP TE4 1 

5 OJ FL6 FLU J * s 1 ^ m ^ t var iable absolute value? 

6 TP CN30 GL Yes, so TM A > GL 

7 TU TE4 GL TM CW A (CW of limit) 
10 RJ RS2 RS 

@ 11 TP CN32 GL FS A — > GL 

12 TV TE1 GL FS A CW (CW of variable) 

13 TP TE4 Q "I Is limit variable absolute value? 

14 QJ FL16 FL15J 

15 TU TE4 GL No, so FS CW CW (CW of limit.) 
(13) 16 RJ RS2 RS Store 

17 TP CN30 GL TM A > GL 

20 TU CN27 GL TM Q A 

21 RJ RS2 RS Store 

22 TP CN33 GL TJ 01002 ->GL 

23 TU RC1 GL TJ 70000 01002 
24r TU CNT6 PL2 Set # working temps into 3rd word of Prelude 

25 TV CN1 PF1 Set word 2 of Op File 1 item = 1 

26 MJ FX16 To store 
CA FL27 
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IA VC (Increment Variable Control) 

VC TP BK4 CT Set index to # of WITH words 

1 TP CN23 CT2 Set address of first variable indicator 

2 RJ SA3 SA To store group of CW's in TE 

3 TP CN15 Q \ Send CW of variable to A 

4 QT TE1 A J 

5 TJ CN12 VC10 64000 > CW? 
_ 6 TJ CN13 FD 65000 > CW? 

_7 MJ FG No, so floating variable 



10 TP TE1 Q \ CW is 63 ; determine if fixed or 

11 QJ FG FD J floating 
CA VC12 



IA FG (Build Floating increment variable instructions) 

FG TP TE3 Q Increment CW — » Q 

1 QJ FG2 FG5 Absolute value? 

2 TP CN27 GL Yes TM Q — > GL 

3 TU TE3 GL TM CW. Q 

4 RJ RS2 RS Store lnC 

5 TP CN31 GL FA Q — »GL 

6 TV TE1 GL FA CW 



var. 
Is increment absolute value? 



7 TP TE3 Q \ 

10 QJ FG12 FG11 J 

11 TU TE3 GL No? so FA CW. CW > GL 

12 RJ RS2 RS Store inc var ' 

13 TP CN26 GL TP Q > GL 

14 TV TE1 GL TP Q CW 

15 MJ FDI4 To store var * 
CA FG16 
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FD 





IA 


FD 


(Build 


fixe 


d increment variable instrs. and Jump Back) 





TP 


TE3 


Q 




Increment to Q 




1 


QJ 


FD2 


FD5 




Absolute 


value? 




2 


TP 


CN27 


GL 




Yes. so 


TM — 


-> GL 


3 


TU 


TE3 


GL 






TM CW. Q — 


-> GL 


4 




RS2 


RS 




Store 


inc 




5 


TP 


FD15 


GL 






RA - 


— > GL 


6 

7 

10 


TU 
TP 
QJ 


TE1 
TE3 
FD11 


GL 


FD13 


} 


RA CW - 

var 

Is increment abs. value? 


— > GL 


11 
12 


TV 
MJ 


CN27 



GL 
FD14 




Yes f 


RA CW Q - 
var v 


— > GL 


13 
14 


TV 
RJ 


TE3 
RS2 


GL 
RS 




No f 
Store 


RA CW CW . 

var inc 


— > GL 


15 


RA 


CT2 


CN5 




Advance 


to next indicator 




16 


IJ 


CT 


VC2 




Back if 


all increment instructions not 












genera 


ited 




17 


TP 


CN34 


GL 






M T f\ 


'i c\ 


MJ U 


* bL. 


20 


TV 


CT3 


GL 






MJ 01 


(Back to Jump to 


21 


RJ 


RS2 


RS 




Store 




Range) 


22 


MJ 
CA 



FD23 


VT 




{VTO - 


= FD22} 
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IA 
3D VT TP 



TP 
RJ 
SP 
ZJ 
MJ 
TV 
TP 



10 TP 

11 TV 

12 SP 

13 RJ 

14 TU 

15 RJ 

16 TP 

17 TU 

20 TV 

21 RJ 

22 TP 

23 RJ 

24 TP 

25 RJ 

26 TP 

27 RJ 

30 TP 

31 TV 

32 RJ 

33 TP 

34 RJ 

35 TP 

36 TV 

37 RJ 

40 TV 

41 LQ 

42 QJ 

43 LQ 

44 QJ 

45 QJ 

46 LQ 

47 QJ 
50 QJ 

CA 



VT 

BK4 

CN23 

SA3 

TE 

VT5 



CN36 

CT1 

CN26 

RC1 

CN3 

cw 

A 

RS2 

CN26 

CN35 

CN25 

RS2 

CN20 

ST2 

CN25 

RS2 

CN21 

ST2 

CN36 

CN25 

RS2 

CN22 

ST2 

CN7 

CT1 

RS2 

CT1 

TE 

VT45 

Q 

DJ 

DL 



DJ4 

DK 

VT51 



CT 
CT2 
SA 


VS1 
[VT6] 
VT5 
CT3 
GL 
GL 


CW1 
GL 
RS 
GL 
GL 
GL 
RS 
GL 
ST 
GL 
RS 
GL 
ST 
GL 
GL 
RS 
GL 
ST 
GL 
GL 
RS 
GC1 
Q20 
VT43 
1 

DJ2 
VT46 
1 

VT50 
DJ16 



Set index to * of WITH words 
Set address of 1st indicator 
Transfer 5 words to temporary 

Is indicator zero? 



Set (B) to qg) 

(CT1)— >CT3. Save alarm print address 

TP — > GL 

TP 70000 



Find CW for 79 



TP 67. . 
Store 

TP - 

TP 10000 

TP 10000 50002 

Store 

10 3 — > GL 

Store 

TP 10001 50002 

Store 

10 4 — > GL 

Store 

RJ 50002 — - 



10 
70000 ->GL 



GL 



GL 



■> GL 

» GL 



RJ 50002 50002 

Store 

10 2 ^GL 

Store 

MS >GL 

MS 01000+. . . 

Store 

Change entry to jump into first test 



DJ, indicator = 14 DJ2, indicator = 10 
DL, indicator = 30 

DJ4, indicator = 22 

DK12, indicator = 21. DJ16, indicator = 20 
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Indie. = 
14 
@ Indict 10 

3) Indie. = 22 



DJ 
1 
2 
3 
4 
5 
6 
7 
10 
11 

10 



IA 
RJ 
MJ 
RJ 
MJ 
TP 
TU 
RJ 
TP 
SP 
SA 

TfT 



13 TV 

14 RJ 

15 MJ 
(41) Indic= 20 16 TP 

17 QJ 

20 TP 

21 SP 

22 RJ 

23 TU 

24 RJ 

25 TP 

26 TU 

27 SP 

30 SA 

31 TV 

32 RJ 

33 TP 

34 TV 

35 RJ 

36 MJ 
CA 



DJ 

EM22 



EN22 



CN26 

TE3 

RS2 

VA6 

CT1 

CN1 

A 

CT3 

RS2 


TE3 
DJ4 
VA5 

CN 

cw 

A 

RS2 

CN33 

TE3 

CN2 

CT1 

A 

RS2 

CN34 

CT3 

RS2 



DJ37 



Indicators: 10, 14, 20(part 1) 

EM 
VS 

EN 



VS 

GL 

GL 

RS 

GL 



17 

GL 

GL 

RS 
VS 
Q 



Build and store test insti. for case 2 
Build and store test instr. for case 1 
TP A 



TP CW. 

Store 

ZJ - 



7J NT - 

ZJ NI alarm 
entry 
Store 



-> GL 
->GL 

->GL 



GL 
GL 



DJ20J 
GL SP 



y Is increment absolute value? 
>GL 



° ) 
CW1J 



CW1 

GL 

RS 

GL 

GL 





GL 

RS 

GL 

GL 

RS 

VS 



Find CW for zero 
67... 

SP CW zero ° — > GL 
Store 

TJ >GL 

TJ CW. > GL 

inc 



inc 



TJ CW. 
Store 
MJ 
MJ 
Store 



NI + 1 



GL 



alarm 
entry 



->GL 
->GL 



:43) Indie. = DK 
21 1 
2 
3 
4 
5 
6 
7 

10 
11 



IA 
TP 
TU 
RJ 
TP 
SP 
SA 
TU 
TV 

RJ 
MJ 
CA 



DK 

CN26 

TE3 

RS2 

CN35 

CT1 

CN1 

A 

CT3 

RS2 



DK12 



GL 

GL 

RS 

GL 



17 

GL 

GL 

RS 
VS 



TP A > GL 

TP CW inc A->GL 

Store 

SJ >GL 



SJ NI — >GL 
SJ NI alarm 
entry 
Store 
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l} 



IA DL (b vari 

@Indic= 30DL TP TE3 Q \ 

1 QJ DL4 DL2 J 

2 TP CN26 GL 

§3 MJ DL5 

4 TP CN30 GL 

5 TU TE3 GL 

6 RJ RS2 RS 

7 TP TE3 Q 

10 QJ DL24 DL1 

11 TP CN35 GL 

12 SP CT1 

13 SA CN1 

14 TV A GL 

15 TP TE2 

16 QJ DL21 DL17 

17 SA CN4 17 

20 MJ DL22 

21 SA CN5 17 

22 TU A GL 

23 RJ RS2 RS 

24 TP VA6 GL 

25 SP CT1 

26 SA CN1 17 

27 TU A GL 

30 TV CT3 GL 

31 RJ RS2 RS 

32 RJ EN22 EN 

33 TP TE3 Q 

34 QJ VS DM 
CA DL35 



able, a and/or c variable Indicator = 30) 
Is increment absolute value? 

No, TP A > GL 

Yes, TM A > GL 



T(g) 
Store 



CW, 



inc 



Is increment absolute value? 
SJ >GL 



SJ 



NI 



GL 



Is initial value absolute value? 
No, so add 4 to (A) 

Yes, so add 5 to (A) 
SJ b<0 NI-^GL 
Store 

ZJ — > GL 



ZJ NI-->GL 
ZJ NI alarm 
Store entry 



GL 



Is increment absolute value? 



DM 
1 
2 
3 
4 

5 
6 



IA 
TP 
SP 
TP 

QJ 
SA 

MJ 
SA 

TV 



DM 

CN34 

CT1 

TE4 

DM6 

CN52 



CN4 



GL 


Q 

DM4 



DM7 


GL 



MJ 



GL 



10 


RJ 


RS2 


RS 


11 


RJ 


EM22 


EM 


12 


MJ 





VS 




CA 


DM13 





Is limit absolute value? 

No, so add 3 to current address in GC 
region 

Yes, so add 4 to current address in 
GC region 

MJ NI f{g} 

Store 

Now build and store tests for b < case 
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1 
1 

2 
3 
4 
5 
6 
7 
10 
11 

12 
13 
14 
15 

16 
17 
20 

21 
22 



EN 

1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 

15 

16 
17 
20 
21 
22 



IA 
TP 

TP 
MJ 
TP 
TU 
RJ 
TP 
QJ 
TP 
TU 
RJ 
TP 
TV 

TP 
QJ 
TU 
RJ 
MJ 
CA 

IA 
TP 
QJ 
TP 
MJ 
TP 
TU 
RJ 
TP 
QJ 
TP 
TU 
RJ 
TP 
TV 

TP 
QJ 
TU 
RJ 
MJ 
CA 



EM 

TE2 

EM4 

CN26 



CN30 

TE2 

RS2 

TE4 

EMU 

CN27 

TE4 

RS2 

CN33 

CT3 

TE4 

EM21 

TE4 

RS2 



EM23 

EN 

TE4 

EN4 

CN26 



CN30 

TE4 

RS2 

TE2 

EN11 

CN27 

TE2 

RS2 

CN33 

CT3 

TE2 

EN21 

TE2 

RS2 



EN23 



Q 

EM2 

GL 

EM5 

GL 

GL 

RS 

Q 

EM14 

GL 

GL 

RS 

GL 

GL 

Q 

EM20 

GL 

RS 

30000 



Q 

EN2 

GL 

EN 5 

GL 

GL 

RS 

Q 

EN 14 

GL 

GL 

RS 

GL 

GL 

Q 

EN20 

GL 

RS 

30000 



Is initial value absolute value? 
TP A > GL 



CW: 



*M v "init 
Store 



-> GL 
A — >GL 



Is limit absolute value? 

Y es? TM Q > GL 

TM CW Q > GL 

Store 

TJ Q > GL 

TJ Q alarm > GL 



entry 

[■ Is limit value absolute value? 

No, so change u of TJ to CW of limit 

Store 

Out 



Is limit absolute value? 
TP A > GL 



TM 

T M CW x 



^>GL 
->GL 



Is initial value absolute value? 



TM 



TM CW. 



-> GL 
Q ^GL 



'init 
Store 

T J Q > GL 

TJ Q alarm 

entry 

Is initial value absolute value? 

No, so change u of TJ to initial value CW 
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Exit 





IA 


VS 




VS 


TP 


CN34 


CT4 


1 


RA 


CT2 


CN5 


2 


IJ 


CT 


VT2 


3 


TP 


CT4 


Q 


4 


QJ 


VS5 


BP 


5 


TP 


CN34 


GL 


6 


RJ 


RS2 


RS 


7 


RJ 


CV3 


CV 


10 


TV 


ST 


VS12 


11 


RP 


30013 


VS13 


12 


TP 


RC 


30000 


13 


TP 


CN1 


PF 


14 


TV 


CN7 


PF1 


15 


TU 


CN36 


PF4 


16 


TV 


RC 


PL 


17 


TP 


CN2 


PL1 


20 


TP 


CN16 


PL2 


21 


TP 


CN55 





22 


QT 


CN36 


A 


23 


RJ 


LS 


LSI 


24 


MJ 





BP 




CA 


VS25 






IA 


BP 




BP 


LQ 


BK3 


Q17 


1 


TU 


Q 


PL 


2 


TU 


Q 


PF 


3 


SP 


ST 





4 


ss 


CN24 





5 


SA 


PL1 





6 


TV 


A 


PL1 


7 


SA 


PL 





10 


SA 


CN6 





11 


TV 


A 


PL 


12 


TP 


BK1 


PL5 


13 


SP 


CT1 





14 


SS 


CN10 





15 


AT 


PF1 


PFl 


16 


SP 


BK6 





17 


RJ 


LW 


LWl 


20 


TU 


A 


PF2 


21 


SP 


GC2 


17 


22 


TU 


A 


PF3 


23 


RA 


PF 


CN4 


24 


TP 


CN57 


0P1 


25 


RJ 


OP 


0P2 


26 


MJ 





VY 




CA 


BP27 





} 



} 



} 



Set indicator when tests are generated 
Advance to next indicator's address 
Have all variables been checked? 
Yes, so have we put in tests? 

Yes, so MJ 1003 -^ GL 

Store 

Convert sentence # to Flex code 



f Put in relative constants and Flex codes 



Set word 1 of Op File I = 1 

Set word 2 of Op File I = 14e 

Insert 50002 CW into 5th word of Op. File I 

Set V of 1st word of Prelude = llg 

Set 2nd word of Prelude = 2 

Build 3rd word of Prelude 

50002 call word — >A U 

Insert call word in List I 

To build Prelude and Op File I JBPO = VS24} 



Sentence CW to Prelude to Op File I 

# lines subject to address modification 
1 to word 2 of Prelude 

# lines in Prelude f Rtne to 1st word 
of Prelude 

Store sentence number in word 6 of Prelude 

# words in running rtne. to 2nd word of 
Op File I item 

CW of last sentence to word 3 of Op File I 

CW of Exit sentence to word 4 of Op File I 

Add 4 to # lines in Op File I item 

To write Op File I and generated routines 

on tape 
To Exit 



1096 



® 







IA 


CV 










TP 




PTC 


Set index 




1 


TP 


BK1 





Sentence # — >Q 




2 


IJ 


CT5 


CV4 


Finished? 




3 


MJ 





30000 


Yes, so out 




4 


LA 


RC5 


6 






5 


LQ 





6 






6 


QT 


CN51 


A 


Next digit — >A 




7 


TJ 


CN52 


CV15 


3 > digit? 




10 


SS 


CN52 


o 


Nn en enhtrnrt 3 




11 


SA 


CN32 





Add Base Flex code address 




12 


TV 


A 


CV13 


Set address of Flex code 




13 


RA 


RC5 


30000 


Add into Flex word 




14 


MJ 





CV2 






15 


SA 


CN52 





Add 3 




16 


AT 


RC5 


RC5 


Add into Flex word 




17 


MJ 
CA 

IA 



CV20 

RS 


CV2 




RS 





RJ 


ST2 


ST 






1 


RA 


CT1 


CN1 






2 


MJ 
CA 

IA 



RS3 

ST 


[30000] 




ST 





ITip 


GL 


[gc] 


Store generated coding 




1 


RA 


ST 


CN1 






2 


MJ 
CA 

IA 




ST3 

SA 


[30000] 




SA 





TU 


CT2 


SA2 






1 


RP 


30005 


SA3 






2 


TP 


[30000] 


TE 






3 


MJ 





[30000] 





1097 





IA 


CN 
















1 








1 


2 








2 


3 








117 


4 








4 


5 





5 


5 


6 








6 


7 


MS 





14 


10 








1000 


11 








63000 


12 








64000 


13 








65000 


14 








67000 


15 








77777 


16 





10 


2011 


17 


10 





1 


20 


10 





3 


21 


10 





4 


22 


10 


2 





23 





BK11 


BKll 


24 





VF2 


GC 


25 


TP 


10001 


50002 


26 


TP 


Q 


A 


27 


TM 





Q 


30 


TM 


A 


A 


31 


FA 


Q 


CE4 


32 


FS 


A 


CN37 


33 


TJ 





1002 


34 


MJ 





1003 


35 


SJ 


10000 





36 


RJ 


50002 


VT41 


37 








37 


40 








52 


41 








74 


42 








70 


43 








64 


44 








62 


45 








66 


46 








72 


47 








60 


50 








33 


51 








77 


52 








3 


53 





2 





54 








26000 


55 





77777 





56 








42 


57 





PL 


PF 


60 








27000 


61 








07777 


62 


40 


CN63 


10 



1098 



63 


54 


30656 


74730 


64 


01 


30723 


46601 


65 


47 


67656 


60154 


66 


30 


31305 


40166 


67 


51 


01240 


17024 


70 


54 


73016 


53050 


71 


66 


30502 


63001 


72 


22 


77777 


77777 




CA 


CN73 






IA 


RC 




RC 





20000 


11 


1 





70000 


70000 


2 


45 


47173 


01225 


3 


04 


24200 


60120 


4 


06 


16200 


45700 


5 











6 


47 


04053 


02404 


7 


30 


06041 


40622 


10 


20 


26140 


61401 


11 


20 


04110 


30315 


12 


57 


42454 


50000 




CA 


RC13 






IA 


CT 




CT 











1 








01000 


2 











3 











4 











5 













CA 


CT6 





RESUME 

A E X I T A 

M U S T A R 

E F E R A T 

A A A V A 

R Y A S E N 

T E N C E A 



CR t V A R Y 

A S E N T E 

N C E A ^ 

f A H A S A 

A N A I N D 

E F I N I T 

E A L P 

4, . CR CR 



Holds CW for Exit line; then Index for 

* WITH words 
# lines running routine +- 1000 (exclude 

10 lines) 
Holds string-out address of next test 

indicator 
Address of instruction to jump to Range; 

then, address of Alarm Print instruction 
Indicator that test coding already 

appears 
Index for Sentence number conversion (not 

stored on MD) 



1099 



TP WL3 A 
Send resume C/W to A 



"27" type 



RESUME GENERATION 
Flow Chart 



Test type 
of 

C/W 



"22" type 



RJ LW LW1 
line # is processed by 
searching list IZ for 
a (VARY) statement with 
this line #. 



RJ LW LW1 
line # is processed by 
searching list IZ for 
a (VARY) statement with 
this line #„ 



Test for 
"26" type 

C/W 



No 



ALARM 
ND 



No 



Test for 
"22" type 

C/W 



Test (VARY) 
fill for C/W 



No 



ALARM 

NE 



Build 
PRELUDE 



Test with KI 
for C/W within 
same sub. prog. 



No 



ALARM 



Build 
OP-FILE I 



STOP 





1100 



RESUME GENERATION 
REGIONS 



RE NC2512 

RE ND2651 

RE NE2667 

RE WL2242 

RE LW1250 

RE VF47101 

RE GL5360 

RE TF2706 

RE OP 1047 

RE KI1336 

RE UP421 

RE BQ632 

RE WA653 



RESUME GENERATOR 



27 

Branch < 



Test 
for 22 



22 

Branch 



Test 

Vary 

File 

for 

CW 





1 

2 

3 

4 

" 5 

6 

7 

10 

11 

12 

(13 

Il4 

il5 

"116 

117 

20 

'21 

22 

23 

24 

25 

26 

27 

30 

31 

32 

33 



IA 

MJ 

TP 

QT 

SS 

ZJ 

TP 

RJ 

TP 

QT 

SS 

ZJ 

TP 

RJ 

TP 

QT 

SS 

ZJ 

TP 

QT 

QT 

MJ 



RS 

RA 

MJ 



TP 

QT 



NC 



WL3 

NC61 

NC62 

NC13 

WL4 

LW 



NC61 

NC63 

ND1 

WL4 

LW 

Q 

NC61 

NC64 

ND1 

VF 

NC57 

NC60 





NC56 

NC107 





VF 

NC60 



30000 



A 



NC5 

A 

LW1 

NC66 

A 



NC41 

A 

LW1 

NC66 

A 



NC21 

Q 

NC56 

NCI 07 

NC120 



NC110 

NCI 11 

NC130 



Q 

A 



Send CW to Q from Resume String-Out 

Mask ii4_9 

Test for 27 (subtract 27000 ) 

Send line no. k (referring to Vary sent.) 
Routine D finds CW for vary sent, in IZ 
Save CW in NC66 
Mask ii4_9 (xx000J v 

Test for 26 (subtract 26000 ) 

To prelude generation or error 

Send line no. k (referring to Vary sent.) 

Routine D finds CW for Vary sent, in IZ 

Save CW in NC66 

Mask i 14 o (xxOOO) v 

Test for 22 (subtract 22000 ) v 

To test Vary file or error 

Code word of Vary file (no. of words) 

Mask "n w & store in Index - NC56 

Mask *V & save in NC107 

Jump to correction (1) 

Subtract 1 from Index 

Add 2 to m 

Jump to correction (2) 

Changed to VF , 9 
Mask CW m (L 



1101 



34 


EJ 


NC66 


NC37 


35 


RA 


NC32 


NC106 


-36 


MJ 





NC112 


37 


TP 


NC66 


A 


40 


MJ 





NC103 


41 


RP 


30010 


NC43 


42 


TP 


NC70 


GL 


43 


LQ 


WL3 


17 


44 


TU 





GL 


45 


TP 


WL1 


GL5 


46 


TV 


NC66 


GL7 


47 


RP 


30003 


NC51 


50 


TP 


NCI 00 


TF 


51 


TU 


GL 


TF 


52 


MJ 





NC125 


53 


TP 


NCI 14 


0P1 


54 


RJ 


OP 


0P2 


55 


MJ 





NC 


56 











57 





7777 





60 








77777 


61 








77000 


62 








27000 


63 








26000 


64 








22000 


65 





1 





66 











67 


40 








70 








10 


71 








2 


72 











73 











74 











75 











76 


MJ 





30000 


77 


MJ 








100 








3 


101 








2 


102 











103 


TP 


NC67 





104 


RJ 


KI 


KI1 


105 


MJ 





NC41 


106 





2 





107 











110 








1 


111 








2 


112 


IJ 


NC56 


NC32 


113 


MJ 





NE1 


114 





GL 


TF 


115 











116 











117 












} 



} 



} 



Test with CW in NC66 for equality 

Increment VF m 4. 2 by 2 

Jump to correction (3) 

Vary CW in A 

Jump to correction (4) 

Generate Prelude Format 

Move CW of Resume to *V' portion 
(0 f CW t 0)q-*(0, 0, 0) gl 
Line no. 
CW 

Generate Op File I format 

CW Resume 

Jump to correction (5) 

(0 GL TF) 



Index 



L(Vary CW) 

CW Resume in u 

Prelude format 

Line number 

CW Vary in v 

CW Resume in u 

Op File I format 

CW Vary in u 

Send parameter to Q 

(4) 



(3) 

Parameter for Op routine 



1102 



120 
121 
122 
123 
124 
125 
126 
127 
130 
131 
132 

1 oo 

134 
135 
136 



TP 
LT 
RS 
LT 
MJ 
TP 
LT 
MJ 
LT 
RA 
MJ 

r\ 

TP 
MJ 
TP 
CA 



NC56 

25 

NC56 

43 



NC66 

10017 



63 

NC32 



r\ 

NC136 


VF 
NCI 37 



A 

NC56 

NC107 

NC56 

NC26 

A 

TF2 

NC134 

NCI 33 

NCI 33 

NC32 
f\ 

NC32 
NC53 
Q 



n~>A 

Shift n to A 

(1) n-m->NC56 = Index 
Index shifted right I or NC56/2 

Move CW of Vary sent, to u address, 

jump to correction (6) 
(5) 
Shift to u position 

(2) Add to (VF), i.e., VF m + 2 



Preset NC32 

(6) 

Presetter for NC32 



ERROR ROUTINE 





1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 

15 



IA 
MJ 
RJ 
TP 
RJ 
MJ 
66 
34 
54 
50 
01 
54 
24 
66 
40 
CA 



ND 



WA 

ND15 

UP2 



33305 

65015 

30313 

26300 

24011 

73430 

66304 

22777 

ND5 

ND16 



BQ6 

WAl 

UP3 

UP 

ND 

43001 

05101 

05430 

16651 

77024 

16566 

73050 

77777 

10 



THEREA 
ISANOA 
REFERE 
NCEATO 
AAACVA 
RY)AST 
ATEMEN 



ERROR ROUTINE 





IA 





MJ 


1 


RJ 


2 


TP 


3 


RJ 


4 


MJ 


5 


65 


6 


30 


7 


31 


10 


30 


11 


51 


12 


65 



NE 



WA 

NE16 

UP2 



66246 

50660 

30543 

65012 

50023 

66305 



BQ6 

WAl 

UP3 

UP 

NE 

63047 

15430 

05026 

40150 

07234 

06601 



STATEM 
ENTARE 
FERENC 
ESAAAN 
ON-EXI 
STENTA 



1103 



13 


17 


70245 


47343 


(VARY) 


14 


01 


65305 


06630 


ASENTE 


15 


50 


26302 


27777 


NCE. 


16 


40 
CA 


NE5 

NE17 


11 





1104 



o 

en 




Generate standard prel- 
ude and M J 30000 
MJ CW of sub- 
program heading 



Generate 
Op File I 
item 



Prelude + generated 
coding and Op File I 
to tape and storage 




> Exit 



o 

o 

cr 

03 

c+ 

o 

m 
x 



CD 

us 

CD 

03 
r+ 
O 



EXIT GENERATOR 





RE 


PX2512 






RE 


PL5360 






RE 


FL2546 






RE 


OP 1047 






RE 


WL2242 






IA 


PX 







MJ 





30000 


1 


RP 


30010 


PX3 


2 


TP 


PX20 


PL 


3 


SP 


WL3 


17 


4 


TU 


A 


PL 


5 


TP 


WL1 


PL5 


6 


TV 


WL4 


PL7 


7 


RP 


30003 


PX11 


10 


TP 


PX30 


FL 


11 


SP 


WL3 


17 


12 


TU 


A 


FL 


13 


SF 


WL4 


17 


14 


TU 


A 


FL2 


15 


TP 


PX33 


0P1 


16 


RJ 


OP 


0P2 


17 


MJ 





PX 


20 








10 


21 








2 


22 











23 











24 











25 











26 


MJ 





30000 


27 


MJ 





30000 


30 








3 


31 








2 


32 





[o] 





33 





PL 


FL 




CA 


PX34 





} 
} 

} 
} 

} 
} 



Generate Prelude Format 

Sentence call word to prelude 

Standard line no. 

CW Sub-routine heading— > 2nd line of 
coding for sentence 

Generate Op File I Format 
Sentence call word to Op. File I 

CW subroutine heading to Op File I 

Prelude + Generated Coding and Op File I 

to tape and storage 
Exit 

Prelude Format 



Object Program Coding 

Op File I Format 

CW of Subroutine heading 
Parameters 



1106 



o 
-1 



Type Generator 



Initialise 



BK4 

GL6 

1000 

1 







WK 
GK 
OK 
MK 
UK 
PC 



MJ 37002 
line -> A„ 




yR.L 



A 



L -» L x 
Initialise 



> 45, 



\ 




o 

CD 



ay- 



L — >L r 



Then multi- 
valued data 



K . N0 ( C(A R ) < 77000?} 



>M 2 



.YES 



C(A„)— >TEMP 1< — (F 



R 



NO 



C(A R )< 65000? 



©* 



F— >F, 



«£ — (j^- 



M— >NL 




Form parameters 
for TR 

TR3 0;C(UK)+UL;0 
TR4 40;C(WK)+1;0 



Box 1 



-(£> 



C(WK)->Box 1 



(WK)<=(WK)+2 



sp[ jo 



Type Generator - Cont, 



®. 



o 




CCA) = >? 



YES 



C(PC) 



A R =0? 



N0 ^ C(A) -A.? V NQ 



NO 



C(A) S (? iJStf CCA) ■ )? 



Then a 
call -word 



YES 



N — >K 



YE< 



0- 



CCTR3) "v" 

> TEMP 4 

i.e. n t number 
of flexcode 
words 



YES 



CPC)<#=CPC)+2 



-© 



C(A R ) 



TEMP 2 



YES 



(PC)«=(PC)-1 



-0 



<5> 



i.e. merely 
print out 
input repre- 
sentation 



Increase (TR4V) 
by 1 (i.e. one 
more word for 
translation) 



.NO/ 




C(A)< 70000? 



YES 



0^_/i^(^ < 67000?) 
^~ b™ S 



(h^»'CV"-->TEMP 3 |L(c(A) < 65000? 




Type Generator - ConU 





Form C(MK)+ ML, 
Send to Box 2 
(i.e. address for 
PT parameter in 
ML) 


> 


Form 

C(UK)+36000 
CCTEMP 4) (i.e., 
PT parameter) 




Box 2 




Form C(MK)+35000 
"PT" in A R (data 

for S.G.) 


0- 


— > 


TP A [ ? ] 


> 













Box 3 



Form 

C(TEMP 2) 

C(TEMP 3) in 




Increase contents 
of store referenced 
*in Box 2 by 1, to 
allow for " A = a " 



Form 

C(UK) + UL, 

Send to Box 3 



TP a [ ? ] 
where C( a ) = 
a= a in flexie 




Type Generator - Cont. 



k) JCCTEMP D->A R "u" 




"IC"->A"v" 



A'V 





©■ 



Form 



<|^> 



determine last 
subscript call 
word 



Form 

SPClast C/W) 
INA R 



-*u*.l\* (TEMP » ) 



Search dimension 
list for this 
item 



2nd line of 
dimension box 
*Q 



©^ 



Form & store 

(S-2) in 
TEMP 3 



NO 




A R = 1? 



YES 



& 



Q "v" (# subs) 



A R (=s) 



(Q) (mod. , # subs) 



■^•TEMP 4 



Type Generator - Cont. 



ro 



a> 



Set r = 1 
in Box 4 



Initialize 



<MX> 



to start at 3rd 
line of dimension 
box 



<Q> 




Output is \ 
C/W OF 1 multi- 
plier in A "u" 



Box 4 



Add in to "A"v" 
C/W of "rth" 
subscript (from 
SL list) 








Add in 

MA . 




to A R 








©J 



NO 



C(TEMP 3) = ? 



YES 



(Temp 3)<= 
(Temp 3) -1 



r + 1 ^ 



(5> 



LQ (TEMP 4) 25 



Q "v" 

(i»e. modulus) 




Xcs: 



Form 

TJ C/W(modulus) 

(0K)+2 in A R 




©■ 



Form 

DV C/W(mod) Q 





Form SA C(MK) 
+35000 17 in A 



R <r 



Type Generator - Cont. 



& 



Form 

TU A C(OK)+l 
in A R 




JR . L . 



•cv 



Ar "V 




Form 

C(MK)+ML 
(address for 77_ 
C/W), send to 
Box 5 



-> 



Box 5 

TP TEMP 1 [ ? ] 
(store 77_ __ C/W 
in mod const, list) 



GO 





C(OK) 

— > TEMP 1 
(35000 Add. 
rel. 1000) 



C(OK)+C(MK)->TEMP 2 
(36000 value rel, 
to 1000) 



©- 



C(BK3)->0P File 
item line 1 "u". 
# lines item->line' 
1 "v" 



C(TEMP 3) -777 = 
# running lines 
Op file item 
(line 2) 



C(0K) + C(MK) + C(UK) 

> TEMP 3 

(37000 value rel. to 
1000) 



Type Generator - Cont* 



& 



C(GK)-GL6-»TEMP 4 
C(TEMP 4)+C(MK)»GLl 
(# lines for add, 
mod,) 



C(BK3) 



GL 



*C(UK)— >GL2 



C(GLl)-f€(GL2) 
+6— ^GL "v" 
(# lines of gen 
coding) 



0-^GL3,GL4 
line #->GL5 



0- 



C(MK)-1 
— ^TEMP 4 



Set <Jg£> to 

process ML 
list 




E.X\ 



Initialize <K> to 

store processed 
words at GL6 



Initialize <^X> to 
start address proces- 
sing at loc. GL6 



£>. 



©-Kex>-- 



Transfer UL list to 

GL; last address in GL 

referenced by EX as 
initial start 



Parameter de- 
scribing GL c 

FL^<^> 




-»ST0P 



Type Generator - Cont, 



TYPE GENERATOR 
REGIONS 





RE 


LS1465 




RE 


CS1211 




RE 


BR537 


Generation 


RE 


UP 421 


Subroutines 


RE 


OP1047 




RE 


WA653 




RE 


BQ632 




.RE 


TR1670 


RE 


DL40102 


RE 


BK2242 


RE 


GL5360 


RE 


TY2512 


RE 


IN2513 


RE 


TG2530 


RE 


MV2672 


RE 


PR2760 


RE 


MX3030 


RE 


EX3044 


RE 


SG3076 


RE 


RL3137 


RE 


ST3143 


RE 


CK3147 


RE 


FU3165 


RE 


SB3173 


RE 


CN3176 


RE 


PC3272 


RE 


OK3273 


RE 


GK3274 


RE 


UK3275 


RE 


MK3276 


RE 


WK3277 


RE 


TM3300 


RE 


SL3306 


RE 


VE3312 


RE 


FL3320 


RE 


ML3730 




RE 


UL4340 



Library List Routine 

CS = CW Constant Call Word Routine 

Machine Error Routine 

Excess Three Print-Out Routine 

Loads Generators and Op Files on Tape 

Routine to Print: Sentence — (Type) 

Rtne.to rewind all tapes & stop computer 

TR - VX Excess Three to Flex Code 

Routine 

Dimension List 

String-Out Buffer Input 

Buffer Output Region for Generated Rtne. 



Generator proper 



Working Space 



Region used to build up Op File 



1115 



Type Generator 

IA TY 

MJ 30000 Exit 

CA TY1 



Initialization 



IA IN 

TV TG141 TG131 ®~ >® 

1 RP 10003 IN3 \ T . + . ,. 

2 TV SG36 SG10 I Initialize sub-generator 

3 TV CN73 FU5 Initialize Op File routine to FL2 

4 TP CN PC Clear PC 

5 TP CN UK UK->0 

6 TP CN1 MK MK->1 

7 TP CN31 OK OK — > 1000 

10 TP CN70 GK _ GK— » GL6 

11 TP CN WK 

12 TU CN73 WK 

13 SP CN56 

14 RJ RL3 RL 
CA IN15 



} 
} 



WK — > BK4 

MJ 37002 Generated 




Main Routine 

IA TG 

TP TG132 TG23 

1 TP TG133 TG126 

2 TV CN67 SB Initialize subscript storing routine 

3 SP CN4 45 8 — >A R 

4 RJ CS CSl Place in constant pool 

, ca o o I PR L (carriage return flex) formed 

7 RJ RL3 RL J and P ut in out P ut 

10 SP CN5 79 — >A 

11 RJ CS CSl Find CW 

12 SA CN47 \ TP L(79) 37000 formed and put in 

13 RJ RL3 RL J output 

14 SP CN41 40 1 — > A 

15 AT WK TR4 Start to form entry line for TR 

16 SP UK 17 \ and inform TR of location for output 

17 AT CN63 TR3 J 

20 TU WK TG22 r — >BOX 1 

21 RA WK CN45 r + 2 — >r 

22 SP [30000] Examine rth word 

23 [0 30000 30000] F = TP A TM; ? 2 = MJ TG36 



1116 



24 


TJ 


CN23 


TG30 


25 


TP 


TG134 


TG126 


26 


RJ 


FU4 


FU 


27 


MJ 





TG34 


30 


TJ 


CN17 


TG33 


31 


TU 


CN71 


TG127 


32 


MJ 





TG34 


33 


TU 


CN72 


TG127 


34 


TP 


TG135 


TG23 


35 


MJ 





TG55 


36 


RP 


30004 


TG53 1 


37 


EJ 


CN25 


TG40 J 




CA 


TG40 






IA 


TG40 




40 


MJ 





TG47 


41 


MJ 





TG45 


42 


RA 


PC 


CN2 


43 


RS 


PC 


CN1 


44 


MJ 





TG55 


45 


TV 


TG136 


TGI 31 


46 


MJ 





TG51 


47 


SP 


PC 





50 


ZJ 


TG55 


TG51 


51 


TP 


TG137 


TGI 11 


52 


MJ 





TG71 


53 


TP 


A 


TM1 


54 


TJ 


CN21 


TG57 


55 


RA 


TR4 


CN1 


56 


MJ 





TG20 


57 


TJ 


CN20 


TG62 


60 


RJ 


SB2 


SB 


61 


MJ 





TG55 


62 


TJ 


CN17 


TG65 


63 


TP 


CN14 


TM2 


64 


MJ 





TG70 


65 


TJ 


CN16 


TG55 


66 


TP 


CN15 


TM2 


67 


RJ 


SB2 


SB 


70 


TP 


TG140 


TGI 11 


71 


RJ 


TR2 


TR 


72 


TP 


CN24 





73 


QT 


TR3 


TM3 


74 


SP 


MK 





75 


SA 


CN65 





76 


TV 


A 


TG101 


77 


SP 


UK 


(X 




CA 


TG100 





< 77000? 

No - i.e., 77 type variable. (E)-> (Q) 

Insert in Op File item 
Jump to (e) 

< 65000? 

No - i.e. 65,66 — so w CV" wanted (m)^^ 

Jump to (E) 

Must be 64 i.e.,"IC" wanted (m)->(M 

Jump to (Gj 

Test for, a© ( ) or none 



k Jump to test PC 
A Jump to set (n) 
( PC + 2 -> PC 
) PC - 1 -> PC 
Jump to (G) 

Jump to set {JJ 

If zero, continue; non-zero, jump to © 

Jump to (jy 

Not any of above,. ". CW. Save in TEMP 2 

CCA) < 70000? 

No,.'. a dummy variable-count 1 more word 

for TR and jump to (5) 
CCA) < 67000? 

No - a numerical subscript - so note 

and jump to (5) 
CCA) < 65000? 
No; a floating variable, so TV" -> TEMP 3 

and jump to ® 
CCA) < 64000? If so DUMMY 
No - so subscript, so "IC" -> TEMP 3 
Store in subscript list 



®^© 



Go translate 

V mask — > Q 

Save n (number flex words) in TEMP 4 

Current number modifiable constants 

Plus ML, is address at which to store 

Parameter about to be formed 

CCUK) 
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IA 


TG100 




100 
101 
102 


SA 
AT 
SP 


CN11 
TM3 

MK 


17 
[30000] 



103 


SA 


CN10 


17 


104 


SA 


CN13 





105 


RJ 


SG34 


SG 


106 


RA 


UK 


TM3 


107 


RA 


MK 


CN1 


110 
111 
112 


RJ 

[o 

SA 


CK3 

30000 

TM2 


CK 

30000] 




113 


RJ 


SG34 


SG 


114 


MJ 





TG14 


115 


SP 


TG101 


17 


116 
117 
120 


TU 
RA 
SP 


A 

[30000] 
UK 


TG117 

CN1 




121 


SA 


CN64 





122 
123 
124 


TV 
TP 
RA 


A 

CN42 

UK 


TG123 
[30000] 
CNl 


125 
126 
127 


RJ 

[o 

SA 


CK3 
30000 
[30000] 


CK 

30000] 




130 
131 


RJ 

MJ 


SG34 



SG 
[30000] 


132 


TP 


A 


TM 


133 


SP 


TM 


17 


134 


MJ 





MV 


135 


MJ 





TG36 


136 








PR 


137 


MJ 





TG115 


140 


SP 


TM1 


17 


141 








TG 




CA 


TG142 






IA 


MV 







RS 


SB 


CNl 


1 


LA 


A 


17 


2 


TU 


A 


MV3 


3 


SP 


[30000] 


17 


4 


SA 


CN52 





5 


RJ 


RL3 


RL 


6 


SP 


TM 





7 


TU 


6 


MV10 


10 


RP 


20000 


BR1 


11 


EJ 


DL 


MV12 


12 


SN 





17 



I 



+ 36000 = V of parameter 

C(MK) 

+ 35000 = CW for parameter location 

And PT is routine used 

Subgen to produce coding 

UK + C (TEMP 4) -> UK 

MK + 1 — >MK 



J! s SP TM1 17; Jo = MJ TG115 
Form "CW required" "IC or CV" 
Subgenerator 
Jump to (B) 

Increase last parameter by 1 to allow 
f or " * A = A " 



Store "^A=A* in UL 

UK + 1 — >UK 

L x = SP TM 17; U = MJ MV 
M 4 add in W IC ; M 2 4 add in "C\T 

Subgenerator 

Either back t or out to processor 

F 

2 
N 9 r Constants 

J 2 



NJ (i.e., A) 



Obtain last stored subscript CW 

Add in SP 

Find appropriate dimension box 

- jn + r 
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13 


SA 


MV10 





14 


SA 


MV11 





15 


TU 


A 


MV16 


16 


TP 


[30000] 


Q 


1 7 
1 1 


TP 





TM3 


20 


QT 


CN24 


A 


21 


EJ 


CN1 


MV35 


22 


ST 


CN2 


TM2 


23 


TU 


CN67 


MV30 


24 


RA 


MV16 


CN33 


25 


TU 


A 


MX 


26 


TV 


MX 12 


MX1 


27 


RJ 


MX11 


MX 


30 


SA 


[30000] 





31 


SA 


CN60 





32 


RJ 


RL3 


RL 


33 


RA 


MV30 


CN33 


34 


IJ 


TM2 


MV27 


35 


LQ 


TM3 


25 


36 


QT 


CN24 


A 


37 


RJ 


CS 


CS1 




CA 


MV40 






IA 


MV40 




40 


SA 


CN55 





41 


SA 


OK 





42 


RJ 


RL3 


RL 


43 


SP 


Q 


17 


44 


SA 


CN61 





45 


RJ 


RL3 


RL 


46 


SP 


MK 





47 


SA 


CN10 


17 


50 


SA 


CN53 





51 


RJ 


RL3 


RL 


52 


SP 


CN51 





53 


SA 


OK 





54 


RJ 


RL3 


RL 


55 


SP 


CN14 





56 


RJ 


SG34 


SG 


57 


SP 


MK 





60 


SA 


CN65 





61 


TV 


A 


MV62 


62 


TP 


TM 


[30000J 


63 


RA 


MK 


CN1 


64 


RJ 


CK3 


CK 


65 


MJ 





TG1.3.1 




CA 


MV66 





Address of 2nd line of box 






} 



} 



2nd line — > Q 
* subs, modulus 



TEMP 4 



* subs — > A 

= 1? 

No, form &store S-2 

Prepare to extract CW in order 

Form address of 3rd line of dim. box 

and initialize m-extractor 

Upon return, CW for 1 mult in A "u* 

Add in CW of 1 subscript 

and MA 

Store 



Prepare to pick up next subscript, then 

back 
Modulus — >Q "v* 

— >k 

Place in constant pool 



TJ L(Mod) 2 

TJ L(Mod) C (OK) + 2 

Store 

CW (Mod) — >A "u" 

DV Mod Q 

Store 

Form 35 type pseudo CW of base 77- 

in A *u* 



— >SA L(CW) 17 

Store 

TU A 1 

TU A "N.I." 

Store 

And "CV" is routine used 

Subgenerator 

C(MK) + ML is address in mod. list for 
77 CW 



Store base CW 

MK +- 1 - — >MK 

Check length 

Jump back to ® (Main Routine) 
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Sub-Processor 





IA 


PR 







SP 


CN6 





1 


RJ 


RL3 


RL 


2 


TP 


CN34 


ML 


3 


SP 


OK 





4 


TP 


A 


TM 


5 


AT 


MK 


TM1 


6 


AT 


UK 


TM2 


7 


ST 


CN7 


FL1 


10 


SP 


BK3 


17 


11 


TP 


A 


GL 


12 


SA 


FU5 





13 


ST 


CN66 


FL 


14 


SP 


GK 





15 


ST 


CN70 


TM3 


16 


AT 


MK 


GL1 


17 


TP 


UK 


GL2 


20 


TP 


CN 


GL3 


21 


TP 


CN 


GL4 


22 


TP 


BKl 


GL5 


23 


RS 


TM3 


CN1 


24 


SP 


CN70 


17 


25 


TU 


A 


EX 


26 


TV 


CN70 


EX7 


27 


RJ 


EX13 


EX 


30 


TU 


CN65 


EX 


31 


SP 


MK 





32 


ST 


CN1 


TM3 


33 


RJ 


EX 13 


EX 


34 


TV 


EX7 


PR40 


35 


SP 


UK 


17 


36 


AT 


CN62 


PR37 


37 


[o 


30000 


30000] 


40 


TP 


UL 


[30000] 


41 


SP 


GL1 





42 


SA 


GL2 





43 


SA 


CN3 





44 


TV 


A 


GL 


45 


TP 


CN43 


0P1 


46 


RJ 


OP 


0P2 


47 


MJ 





TY 




CA 


PR50 





} 

} 



MJ 1000 

Stored 

Set up index address line 

35000 (i.e., ML) Val. rel. 1000 

36000 (i.e., UL) val. rel. 1000 

37000 (i.e., temp) val. rel. 1000 

Total ff lines in running prog. (incl. temps) 

CW this routine 

CW this routine to u of output line 

CW and number of lines complete Op File I 

item 
C(GK) - GL6 = # lines for modification by 

this routine 



Complete prelude 



Set up index for GL mod. 

Extract words from GL6 
Store words at GL6 
Exchange 35 f 36 f 37 *s in GL 



Now process mod. consts. 

Set in address in GL for UL consts, 

Form RP order 

Repeated transfer from UL — >GL 
Total # output lines 



Parameter — >0? 

Output 

EXIT 
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Subroutine to Extract Multipliers and Obtain Appropriate CW*s 



1 line — >0 

Switch (initially MX2) 

FLIP 

Reverse "u" and "v" 

Modify entry for next application 

FLOP 



Place in constant pool 
Exit 





1 

2 


T II 

TP 

MJ 
TV 


nirvr 
MA 

[30000] 

MX13 



[30000] 

MXl 


3 


MJ 





MX7 


4 
5 


RA 




MX 


25 
CN33 


6 


TV 


MX 12 


MXl 


■ 


AT 


/-MO /I 


A 


10 
11 
12 


RJ 
MJ 



cs 





csi 
[30000] 

MX2 


13 








MX4 




CA 


MX14 





Replacing 35 , 36 f 37 Addresses with Values Relative 1000 





IA 


EX 







TP 


[30000] 


Q 


1 


QT 


CN44 


A 


2 


EJ 


CN35 


EX7 


3 


RJ 


EX31 


EX14 


4 


LQ 





25 


5 


RJ 


EX31 


EX14 


6 


LQ 





17 


7 


TP 


Q 


[30000] 


10 


RA 


EX 


CN33 


11 


RA 


EX7 


CN1 


12 


IJ 


TM3 


EX 


13 


MJ 





[30000] 


14 


TP 





TM4 


15 


QT 


CN23 


TM5 


16 


RP 


30003 


EX31 


17 


EJ 


CN10 


EX20 


20 


MJ 





EX26 


21 


MJ 





EX24 


22 


RA 


TM4 


TM2 


23 


MJ 





EX27 


24 


RA 


TM4 


TM1 


25 


MJ 





EX27 


26 


RA 


TM4 


TM 


27 


SS 


TM5 





30 


TP 


A 


& 


31 


MJ 





[30000] 




CA 


EX32 





1 line to 
Inspect "Op. code" 
If a 10 line, O.K. 
Process *V f 



Process "u" 

Restore Q 

And output it in GL 



Back for next line 

EXIT 

Save 

Mask off 1st two digits 



35 
36 
37 Add in val (37) 

36 Add in val (36) 

35 Add in val. (35) 

Subtract original 1st two digits 

Set result back in Q 
Exit back to main level 
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Subgenerator, to Produce Coding Handling Parameters 





IA 


SG 







TP 


A 


Q 


1 


SA 


CN46 





2 


RJ 


RL3 


RL 


3 


SP 


CN36 





4 


RJ 


ST3 


ST 


5 


QT 


CN24 


SG37 


6 


EJ 


CN14 


SG11 


7 


EJ 


CN15 


SG12 


10 


RJ 


SG40 


[30000] 


11 


RJ 


SG40 


[30000] 


12 


RJ 


SG40 


[30000] 


13 


RJ 


FU4 


FU 


14 


SP 


SG37 


17 


15 


RJ 


LS 


LSI 


16 


RS 


SG40 


CN1 


17 


TV 


A 


SG20 


20 


TV 


SG35 


[30000] 


21 


SP 


SG37 





22 


SA 


CN50 





23 


RJ 


RL3 


RL 


24 


SP 


CN37 





25 


RJ 


ST3 


ST 


26 


SP 


SG37 


17 


27 


SA 


SG37 





30 


SA 


CN54 





31 


RJ 


RL3 


RL 


32 


SP 


CN40 





33 


RJ 


ST3 


ST 


34 


MJ 





[30000] 


35 








SG26 


36 








SG13 


37 





30000 


30000 


40 





30000 


30000 




CA 


SG41 






IA 


RL 







RJ 


ST3 


ST 


1 


RA 


OK 


CN1 


2 


RJ 


CK3 


CK1 


3 


MJ 





[30000] 




CA 


RL4 





} 



M u" & 


« v « 


->Q 


for 


PT, 


. IC 


: t cv 


Add in 


i TP 












Store 














10 


3 












Store 














Name c 


>f routine 


rv") 


to 


temp 


Is it 


CV? 












Is it 


IC? 













PT 1 f 

CVVUsed before? < Initialized to SG13 

icj L 

No, insert in Op File 1, List 1, then 
ensure this path not taken again 

Find address to be changed 



Name to A "v" 
Add in TP 35000 
Store 
10 4 
Store 



Add in RJ 
Store 
10 2 

EXIT 



Erasable 



Store 

Increment OK 

Check size of routine 

Exit 
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IA 


ST 









TV 


GK 


ST1 




1 


TP 


A 


[ 30000] 


Store 


2 


RA 


GK 


CN1 


Increment GK 


3 


MJ 
CA 




ST4 


[ 30000] 


Exit 





IA 


CK 







SP 


OK 





1 


SA 


MK 





2 


SA 


UK 





3 


TJ 


CN32 


[ 30000] 


4 


RJ 


WA 


WAl 


5 


TP 


CK10 


UP 3 


6 


RJ 


UP2 


UP 


7 


MJ 





BQ6 


10 


40 


CKll 


5 


11 


32 


30503 


05424 


12 


66 


30270 


16530 


13 


50 


66305 


02630 


14 


01 


66515 


10146 


15 


51 


50322 


27777 




CA 


CK16 





Error Print-Out Routine 



Sum 3 counters 



} 



Print-Out: Sentence (Type) 

Print-Out: Generated Sentence Too Long 

Jump to rewind tapes and computer stop 
Parameter for print-out routine 
GENERA 
TEDASE 
NTENCE 
ATOOAL 
ONG. 



Updating Op File 1 Item 





IA 


FU 







LA 


A 


17 


1 


TV 


FU5 


FU2 


2 


TP 


A 


[30000] 


3 


RA 


FU5 


CN1 


4 


MJ 





[30000] 


5 








[30000] 




CA 


FU6 





Where? 

Store in item 

Increment counter 

Exit 

Counter 



Storing SS in Subscript List (SL) 





IA 


SB 









TP 


A 


30000 


Store subs 


1 


RA 


SB 


CN1 


Increment 


2 


MJ 
CA 

IA 



SB3 

CN 


30000 


and exit 
Constants 
















1 








1 




2 


& 





2 




3 








6 




4 








45 





1123 



5 








117 


6 


MJ 





1000 


7 








777 


10 








35000 


11 








36000 


12 








37000 


13 








50002 


14 








50062 


15 








50112 


16 








64000 


17 








65000 


20 








67000 


21 








70000 


22 








76000 


23 








77000 


24 








77777 


25 








40 


26 








120 


27 





1 





30 





2 





31 








1000 


32 








1776 


33 





1 





34 





37000 


37000 


35 


10 








36 


10 





3 


37 


10 





4 




CA 


CN40 






IA 


CN40 




40 


10 


2 





41 


40 


1 





42 


57 


04440 


40000 


43 





GL 


FL 


44 


77 








45 





2 





46 


TP 








47 


TP 





37000 


50 


TP 


35000 





51 


TU 


32000 


1 


52 


SP 








53 


SA 





17 


54 


RJ 








55 


TJ 





2 


56 


MJ 





37002 


57 


PR 









Pseudo-address codes 

PT 

CV f Library call words 

IC 



v-mask 

^ ® ^ Various string-out symbols 

) . 

Check on length of gen. coding 
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60 


MA 








61 


DV 





31000 


62 


RP 


30000 


PR41 


63 





UL 





64 








UL 


65 





ML 


ML 


66 








FL 


67 





SL 


SL 


70 








GL6 


71 





CN14 





TO 


u 




u 


73 





BK4 


FL2 




CA 


CN74 





1125 



START 



0K->14 10 

TK-> 3 

MK— > 

Set up VK 

Start to scan at BK7 

Start to store subs at 

SL 
Start to store M*s at 



Prepare Op 
File 1 item 
and prelude 
so far as 
possible 




A 



Inspect 
word of 
stringout 



rth 




> 77000? 



Yes 



No 



to 

a* 



Scan dimension 
list for this entry 



Store this C/W 
in Op File I item 



Extract 2nd line 
of dim, box, 
note # sub- 
scripts in ER 



Build SL list 
(# subscripts of 
vbl's in 
stringout) 



en 

r+ 

o 

CD 
3 
0> 
>-l 
03 
c+ 
O 
►-« 



o 

o 

ST 
0} 
»1 
c+ 
CO 





Extract 1 
multiplier 
from dimen- 
sion list 



Place it in 
the constant 
pool 



Build 



list 



(C/W f s of multi- 
pliers & moduli 
in constant 
pool) 



S-lmultipliers? 



Yes 




to 

-si 




Find modulus, 
place in const, 
pool, note C/W 
in MM list 



r + S 



OK + 6 + 
^>0K 



MK + 1 — > MK 





OK + 2-»0K 




E \ — > 



TK + 1 -> TK 



r + 1 — >r 



VK - 1-»VK 



VK = 0? yet? 



Yes 






» Vbles = 1? 



No 



00 



Yes 



NC 



# columns 
= # vari- 
ables in 
sentence 



Main increment 
after one appli 
cation of this 
routine is 

20io (1 bkt »> 
20— >NC 




* Vbles = 5? 



Yes 



No 



So 2-4 
vbles 
(columns) 
so extra RA 
in exit 



OK+1 



OK 



Then increment 
after buffer 
emptying is 
2(5-V) — > NCI 






OK + MK + TK 

= # lines for 
modification 



OK + TK + GL6 
= add. ret. GL 
for mod. consts. 



OK + MK + 1000 
= add. rel. 
1000 for XS3 
words 



OK + 1000 
= add. rel. 
1000 for mod. 

consts. 



Complete prel- 
ude, up date 
list 1 



to 

sO 



OK — >1000 



Prepare to store 
gen. coding at 
GL6; Start to 
scan at BK7. 
Start to scan SL 
list from SL 
Start to scan MM 
list from MM 





00 

o 





Place current 
line # in const, 
pool (to be used 
as identifying 
symbol) 
















"l > 




Generate 
"TP LN A" 




Generate 
"EJ Fjjm 1011" 




Generate 
"RJ IW IW" 






) * 


















































Generate 

"10 3 2" 

(to cause buffer 

emptying as 

required) 












Gen, 

"RP 3 n 1010" 
where n = # of 
heading words 






Gen, 
"TP LN Fln" 




Gen, 

"TP TN F^" 














































Gen, 
"TP L(XS3) BF" 


j 


3 




1 




Form X = 
# heads. + 20io 
+ C(NC1), & place 
in const, pool 



Generate 
M RA BI L(x)" 



Generate 
"TV BI IW" 



Generate 
'10 121" 




CO 



Examine rth 
word of 
stringout 



Box 1 



> 77000? 



Yes 




Store this C/W as 
a mod. const, for 
running prog. 



Look-up * sub- 
scripts in SL 
list (formed 
during pass 1) 



Fetch (r+s)th 
word, which is 
last subscript 
quoted. (->A"u") 





Obtain contents 
of (r+p)th word 
(P o =0) which 
should be 1st 
subscript quoted 



Obtain one entry 
from MM list 
which is multi- 
plier for this 
subscript 



Thus, gen. 
"MA ~ ~ " 
(for 1 subscript 



A"v" 



GO 

to 



->( All S processed? ) > 





Obtain one entry 
from MM list, 
which is modulus 
for this vble. 
(— >A"u") 



Gen. "TJ mod <*+•£, 
where a is loca- 
tion of this order 



Gen. 
"DV mod 



Q" 




Ca3 




Gen, 

"SA P 17", where 
/3 = add. rel . 
1000. of const, 
as in Box 1 



Gen, 

"TU Aa+1", where 
a = current loc. 
rel. 1000 



r + s 



Clear A, ER 





1— >ER 
(i.e. assume 
fix. pt.) 



■M C/W > 65000? 



Yes 



Clear ER, as 
floating pt. 




-K Q 



No 




LA A 17 




■M R 



Add to A 

"TP A" and 

store in gen list 



Gen 
"RJ IW IW" 



Gen 
"10-3-C(ER)" 



r + 1— >r 



VK-1-»VK 






VK = 0? 



No 



O 



Yes 





Gen 
"TJ L(BF165) 

1000" (test 
for full buffer) 



Gen 
"RJ IW IW n 



Gen 
"10 - 3 - 2" 



C(NC1) = o? Vio 




00 

en 



^ 


Gen 

"RA BI C(NC1) 


> 





^ 


Gen 
"MJ 1000" 


^ 


Transfer heads to 
locations following 
mocU constants 




Param. — > Op 












> 


> 




















w 


4)p\ » ST( 


)P 



















LIST GENERATOR 
REGIONS 





RE 


LSI 465 


Generation 


RE 


CS1211 


Subroutines 


RE 


BR537 




RE 


OP1047 



RE RW50023 



RE 
RE 
RE 



RE 
RE 
RE 
RE 
RE 
RE 
RE 
RE 
RE 
RE 
RE 
RE 
RE 
RE 
RE 
RE 
RE 
RE 
RE 
RE 
RE 
RE 
RE 



DL40102 

BK2242 

GL5360 



RE WW12 



LI2512 

IN2513 

PA2532 

PB2632 

PC2666 

RL3113 

ST3116 

OR3121 

CN3136 

OK3173 

TK3174 

MK3175 

VK3176 

NC3177 

ER3201 

TC3204 

SL3205 

MM3212 

FL3236 

NL71002 

TN71003 

BI71004 

BF71005 



Library List Routine 

CS = CW Constant Call Word Routine 

Machine Error Routine 

Routine to Transfer Generated Routine and Op File 

to Tape 
List of call words of tape numbers referenced for 

use of STOP instruction 
Dimension List 

Buffer input region for string-out 
Buffer output region for generated routine 

Fixed location where READ and LIST indicators are 
stored 



► Generator proper 



Used to store Op File for LIST 



> Fixed output locations 
LIST Buffer location 



7 in these addresses is 
a code figure to keep 
processor from modifying 
addresses 
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IA LI 

MJ 30000 Exit 

CA LI1 



Preliminary Initialization 





IA 


IN 







TP 


CN7 


OK 


1 


TP 


CN3 


TK 


2 


TP 


CN 


MK 


3 


TP 


BK5 


VK 


A 
1 


TTT 

J. u 


r\mA 


A 

1 rt 


5 


TV 


CN25 


PA15 


6 


TV 


CN26 


PA34 


7 


SP 


BK3 


17 


10 


TP 


A 


GL 


11 


TP 


CN27 


FL2 


12 


TV 


CN24 


PA5 


13 


AT 


CN3 


FL 


14 


TP 


CN 


GL3 


15 


TP 


CN 


GL4 


16 


TP 


BK1 


GL5 




CA 


IN17 





} 



14io running lines at least 

3 "10 lines'* 

modifiable constants 

Set up variable counter 

Start scanning string— out at um 

Build subscript List from SL 

Build mult. & mod. List from MM 

Routine CW to Prelude 

Note CW of IW routine 

Future cross-refs. to be stored at FL3 

Call word and at least no. 3 of lines to 

1st line of Op File 
inputs 
outputs 
Line number to Prelude 



"LIST" Generator - First Pass 





IA 


PA 







SP 


[30000] 





1 


TJ 


CN14 


PA55 


2 


TU 


6 


PA3 


3 


RP 


[30000] 


BR1 


4 


EJ 


DL 


PA5 


5 


LT 


10017 


[30000] 


6 


RA 


FL 


CN1 


7 


SN 





17 


10 


SA 


PA3 





11 


SA 


PA4 





12 


TU 


A 


PA13 


13 


TP 


[30000] 





14 


QT 


CN20 


ER 


15 


TP 


A 


[30000] 


16 


EJ 


CN1 


PA40 


17 


ST 


CN2 


ER1 


20 


TU 


PA13 


PA37 


21 


RA 


PA13 


CN15 


22 


TU 


A 


PA24 


23 


TP 


PA76 


PA25 


24 


TP 


[30000] 


Q 


25 


[0 


30000 


30000] 



} 



Inspect rth word of string-out 

Multivalued? 

Yes t scan Dimension List 



Build Op File 1 item 
-jn f r 

fr 

+DL =)add. of 2nd line (modulus; S) 



Using v-mask f note # subscripts (s) 

Build subscript list 

Is s = 1? 

No, form & store (S-2) 

Note address of 2nd line 
Form address of 3rd line 

Set flip-flop of m-extractor 

1 line of dim. box — > Q 

© TP (2) PA25; © MJ PA27 
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26 


MJ 





PA32 


27 


LQ 


Q 


25 


30 


RA 


PA24 


CN15 


31 


TP 


PA76 


PA25 


32 


QT 


CN20 


A 


33 


RJ 


CS 


CS1 


34 


TP 


A 


[30000] 


35 


RA 


PA34 


CN1 


36 


IJ 


ER1 


PA24 


37 


TP 


[30000] 


Q 




CA 


PA40 






IA 


PA40 




40 


LQ 





25 


41 


QT 


CN20 


A 


42 


RJ 


CS 


CS1 


43 


TV 


PA34 


PA44 


44 


TP 


A 


[30000] 


45 


RA 


PA34 


CN1 


46 


SP 


ER 


17 


47 


AT 


PA 


PA 


50 


RA 


PA5 


CN1 


51 


RA 


PA15 


CN1 


52 


RA 


OK 


CN4 


53 


AT 


ER 


OK 


54 


RA 


MK 


CN1 


55 


RA 


OK 


CN2 


56 


RA 


TK 


CN1 


57 


RA 


PA 


CN15 


60 


RS 


VK 


CN1 


61 


ZJ 


PA 


PA62 


62 


SP 


BK5 





63 


EJ 


CN1 


PA73 


64 


TP 


CN10 


NC 


65 


EJ 


CN5 


PA74 


66 


RA 


OK 


CN1 


67 


SP 


CN5 





70 


SS 


BK5 


1 


71 


TP 


A 


NCI 


72 


MJ 





PB 


73 


TP 


CN4 


NC 


74 


TP 


CN 


NCI 


75 


MJ 





PB 


76 


TP 


PA77 


PA25 


77 


MJ 





PA27 




CA 


PA100 





} 



} 



} 



Jump to extract v-field 
Q "u" — >Q "v" 

Modify for next line 

Reset flip-flop to Q) 

Extract v field 

Insert in constant pool, and find CW 

Build MM list (A "u") 

Back for more multipliers 
2nd line again to Q 



Shift modulus to "v" and extract it 

Place in pool 

and place in MM list 



Bring r count up to date 

Op File Item building op. updated 

SL list building op. updated 

OK + 4 — >0K 

OK + 5 — >0K 

1 mod constant 

OK + 2 — >0K (S.V. variable entry) 

One "10 line" 

r + 1 — »r 

vk - 1 — > vk 

If zero, wrap up this pass. 

Number variables — > A 

= 1? 

No, > 1. 20 10 — >INC 

= 5? 

No, OK + 1 -^>0K 

5 — *A 

2(5 - v) = SUBINC 

Jump to initialization, Pass 2 
1 vble, INC = 4 
1 or 5 vbles., SUBINC = 
Jump to init. , Pass 2 

Constants for m flip-flop 



1138 



Initialization, Pass 2 

IA PB 

SP OK 

1 AT MK ER 

2 AT TK GL1 C(OK)+C(MK)+C(TK) = # lines for add. mod, 

3 SS MK 

4 SA CN23 C(OK)+C(TK)+GL6 = add. rel. GL for mods. 

5 TV A PC53 

6 SP ER C(0K)+C(MK)+lOOO 

7 AT CN12 TC = XS3 add. rel. 1000 

10 ST MK MK C(0K)+1000 = mod. const, add. rel. 1000 

11 TP BK6 GL2 # unmods. 

12 SP BK6 

13 AT ER FL1 Total number of running lines 

14 TP BK5 VK Set variable counter 

15 TU CN24 PC51 Set to scan at BK7 

16 TU CN25 PC55 Start obtaining » subs from SL list 

17 TU CN26 PC74 Start obtaining mults. and mods, from MM 

list 

20 TP CN12 OK Set OK to 1000 

21 TV CN23 ST Start storing output at GL6 

22 SP CN27 "50077" to A 

23 RJ LS LSI Update list 1 

24 SP GL1 

25 SA GL2 

26 SA CN6 +• 6 = * lines for prelude 

27 TV A GL 

30 SP TC XS3 add. rel. 1000 

31 SA BK6 + # heads 

32 SA 0R14 

33 RJ RL2 RL Store MJ Exit 



CA PB34 



Second Pass 



IA PC 

SP BK1 This line number 

1 RJ CS CS1 Insert in constant pool (CW — >A "u") 

2 SA OR Add in TP A 

3 RJ RL2 RL 

4 SP 0R1 EJ NL 1011 

5 RJ RL2 RL 

6 SP 0R2 RJ I IW 

7 RJ RL2 RL 

10 SP CN16 Basic "ten line** 

11 SA CN2 + 2 in "v" 

12 RJ ST2 ST Store it 

13 TP GL7 ER "TP CW (LN) A 
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14 


TV 


CN21 


ER 


15 


SP 


ER 





16 


RJ 


RL2 


RL 


17 


TP 


OR 


ER 


20 


TU 


BK4 


ER 


21 


TV 


CN22 


ER 


22 


SP 


ER 





23 


RJ 


RL2 


RL 


24 


SP 


GL2 


17 


25 


SA 


0R3 





26 


RJ 


RL2 


RL 


27 


SP 


TC 


17 


30 


TP 


OR 


ER 


31 


TU 


A 


ER 


32 


TV 


CN17 


ER 


33 


SP 


ER 





34 


RJ 


RL2 


RL 


35 


SP 


GL2 





36 


SA 


CN10 





37 


SA 


NCI 







CA 


PC40 






IA 


PC40 




40 


RJ 


CS 


CS1 


41 


SP 


0R4 





42 


SA 


Q 





43 


RJ 


RL2 


RL 


44 


SP 


0R5 





45 


RJ 


RL2 


RL 


46 


SP 


CN32 





47 


SA 


CN11 





50 


RJ 


ST2 


ST 


51 


SP 


[30000] 





52 


TJ 


CN14 


PC 130 


53 


TP 


A 


[30000] 


54 


RA 


PC53 


CN1 


55 


TP 


[30000] 


ER 


56 


RA 


PC55 


CN15 


57 


SP 


ER 


17 


60 


SA 


PC51 





61 


TU 


A 


PC62 


62 


SP 


[30000] 


17 


63 


SA 


0R6 





64 


RJ 


RL2 


RL 


65 


SP 


ER 





66 


EJ 


CN1 


PC102 


67 


ST 


CN2 


ER1 


70 


SP 


PC51 





71 


SA 


CN15 






►"TP CW(LN) F 



LN 



TP CW(TN) F, 



TN 



Store this line 

# heads -> A w u" 

->RP 3n 1010 

Store 

XS3 add. rel. 1000 

TP L(XS3) BF 



Store this line 

* heads 

f 20 10 

+ SUBINC = t,otal RA const, 



Insert in constant pool 

RA BI L (INC 1) to output 

TV BI IW to output 

Basic 10 line 

+ appropriate value to reach IW "store" 
line 

Examine rth word 

Multivalued 

Yes r store this CW as a running mod. const 

Set for next time 

# SS — -> ER 
Modify 

# SS->A "u" 

Find location of 

Last subscript for "SP 0" order 

Last CW — >A w u" 

Add in SP 

Store this line 

More than 1 subscript? 

Yes, form and store (S-2) 

Add 1 uto find first subscript 
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72 


TU 


A 


PC73 


73 


SP 


[30000] 





74 


SA 


[30000] 





75 


SA 


0R7 





76 


RJ 


RL2 


RL 


77 


RA 


PC73 


CN15 




CA 


PC100 






IA 


PC100 




100 


RA 


PC74 


CN15 


101 


IJ 


ER1 


PC73 


102 


TU 


PC 74 


PC 105 


103 


RA 


PC74 


CN15 


104 


SP 


0R10 





105 


TP 


[30000] 


ER1 


106 


SA 


ER1 





107 


SA 


OK 





110 


RJ 


RL2 


RL 


111 


SP 


ER1 





112 


SA 


0R11 





113 


RJ 


RL2 


RL 


114 


SP 


MK 


17 


115 


SA 


0R12 





116 


RJ 


RL2 


RL 


117 


RA 


MK 


CN1 


120 


SP 


0R13 





121 


SA 


OK 





122 


RJ 


RL2 


RL 


123 


SP 


ER 


17 


124 


AT 


PC51 


PC51 


125 


TP 


CN 


A 


126 


TP 


A 


ER 


127 


MJ 





PC 134 



130 TP CN1 



ER 



131 


TJ 


CN13 


PC 


132 


TP 


CN 


ER 


133 


LA 


A 


17 


134 


SA 


OR 





135 


RJ 


RL2 


RL 


136 


SP 


0R2 





137 


RJ 


RL2 


RL 




CA 


PC140 





Subscript — > v field 

Multiplier— >u field 

MA— »0p field 

Store 

Modify to pick up next subscript 



To pick up next multiplier 

To pick up modulus 
Set for next time 

TJ 2 

Save CW (Mod) 
TJ CW (Mod) 2 
Complete TJ line 

Store 

— CW (Mod) 

DV— Q 

Store 

Add. rel. 1000 of mod. consts. 

"SA CW (Base) 17" 

Modify MK for next time 

TU A 1 
Complete line 



r + s — > r 
Clear A and ER 

then jump to form 

TP [ ] A 



Single valued. 1 

fixed) 
Text v, 65000 
Floating, clear ER "v* 
CW -> A "u" 

TP A 

Store 

RJ IW IW 

Store this line 



ER "v" (i.e. , assume 
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IA 


PC140 




140 


SP 


CN16 





141 


SA 


ER 





142 


RJ 


ST2 


ST 


143 


RA 


PC51 


CN15 


144 


RS 


VK 


CN1 


145 


ZJ 


PC51 


PC 146 


146 


SP 


NC 





147 


RJ 


CS 


CS1 


150 


SP 


0R4 





151 


SA 


Q 





152 


RJ 


RL2 


RL 


153 


SP 


CN30 





154 


RJ 


CS 


CS1 


155 


TP 


0R10 


ER 


156 


TU 


A 


ER 


157 


TV 


CN12 


ER 


160 


SP 


ER 





161 


RJ 


RL2 


RL 


162 


SP 


0R2 





163 


RJ 


RL2 


RL 


164 


SP 


CN16 





165 


SA 


CN2 





166 


RJ 


ST2 


ST 


167 


SP 


NCI 





170 


ZJ 


PC 171 


PC 175 


171 


RJ 


CS 


CSI 


172 


SP 


0R4 





173 


SA 


Q 





174 


RJ 


RL2 


RL 


175 


TP 


0R14 


ER 


176 


TV 


CN12 


ER 


177 


SP 


ER 







CA 


PC200 






IA 


PC200 




200 


RJ 


RL2 


RL 


201 


SP 


GL2 


17 


202 


SA 


CN17 





203 


TU 


A 


PC206 


204 


TU 


PC51 


PC207 


205 


TV 


PC53 


PC207 


206 


RP 


[0] 


PC210 


207 


TP 


[30000] 


[30000 


210 


TP 


CN31 


0P1 


211 


RJ 


OP 


0P2 


212 


TP 


CN15 





213 


QS 


CN15 


WW 



} 



Basic 10-line (10 3 0) 
Plus or 1 

r + 1 — >r 

Vble count decreased by 1 

INC — >A 

Place in const, pool 

RA BI — 
Complete line 
Store 
BF165 — >A 
Insert in pool 



TJ LCBF165) 1000 formed and put in output 



RJ IW IW to output 

Basic 10-line 

Add 2 to complete it 

Subinc — > A 

Zero? 

No, insert in pool 

RA BI Subinc formed & put in output 



MJ 1000 formed in A 



Store 

* heads — >A V 

+ 30000 



Transfer heading codes 



Parameter to output handler 

Go output 

1->Q 

Inform processor of "LIST" 
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214 


SP 


BK4 





215 


TU 


RW 


PC216 


216 


RP 


[o] 


PC220 


217 


FT 


RW1 


PC224 


220 


RA 


RW 


CN33 


221 


SA 


CN34 





222 


TV 


A 


PC223 


223 


TP 


BK4 


[30000] 


224 


MJ 





LI 




CA 


PC225 






IA 


RL 







RJ 


ST2 


ST 


1 


RA 


OK 


CN1 


2 


MJ 





[30000] 




CA 


RL3 






IA 


ST 







TP 


A 


[30000] 


1 


RA 


ST 


CN1 


2 


MJ 





[30000] 




CA 


ST3 






IA 


OR 







TP 





32000 


1 


EJ 


NL 


1011 


2 


RJ 


50077 


50077 


3 


RP 


[ 30000] 


1010 


4 


RA 


BI 





5 


TV 


BI 


50077 


6 


SP 








7 


MA 








10 


TJ 





2 


11 


DV 





31000 


12 


SA 





17 


13 


TU 


32000 


1 


14 


MJ 





1 




CA 


0R15 






IA 


CN 
















1 








1 


2 








2 


3 








3 


4 





n 


4 


5 








5 


6 








6 


7 








16 


10 








24 


11 








121 



Tape # CW — > A 

Already in list of CW's? 

No, increment index by 1 
Add [RW] 

And insert in list 
Exit 
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12 








1000 


13 








65000 


14 








77000 


15 





1 





16 


10 


3 





17 





30000 


BF 


20 








77777 


21 








NL 


22 








TN 


23 








GL6 


24 





BK7 


FL3 


25 





SL 


SL 


26 





MM 


MM 


27 





50077 





30 








1172 


31 





GL 


FL 


32 


10 








33 





1 


1 


34 








RW 




CA 


CN35 
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Flow Charts of Read Generator 




Call word to 1st line 
of prelude & Op. File 



Clearing input and 
output lines of 
prelude 



Line number to 
prelude 



Count of 3 to v of 
first line of Op. File 



Call word of read li* 
brary routine to Op. 
File 



Set up loading 
routine ST 



Increase 2 initial 
loading addresses of 
XS3 variables by one 
to allow for an added 
10 line 



Increase XS3 variable 
loading address by 2 
to allow for 2 added 
10 lines in case of 2 
variables 



Yes 



Is there a "jump to" 
line number? 



Set up Op. File 
loader FB 



© 

No 




Is 3 > num- 
ber of vari- 
ables? 



Yes 



© 



Starting count of lines 
relative to 1000 in OK 
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31 + no* variables = 
number of lines subject 
to address modification. 
Put in 2nd line of 
prelude 



/ RL routine to load 
temporary in output 



TP Call word First tem- 
of vari- porary of 
ables Object 
index Program 

Above line formed and 

sent to output* 



Twice number of vari« 
ables = number of un- 
modifiable constants, 
Put in 3rd line of 
prelude 



767 + preceding + 3 
gives v of exit jump 
line. MJ o v formed 
in a temporary 



TU 1023 1011 
TU 1024 1005 
TU 1025 1010 

Above 3 lines sent 
to output. 



£> 



Thrice no. of vars. 
+31 - 1 = no. of lines, 
Object program in- 
cluding temporaries. 
Put in 2nd line of 
Op. File. 



Thrice no. of vars. + 
31+6 = no. lines prel- 
ude and routine. Put 
in v of 1st line of 
prelude 



Set-ups to make the fol« 
lowing choices, respec- 
tively from boxes in GK 
subroutine: 

TP 30000 50100 

TP 30000 Temp. 

TV 30000 100x+2 



GK subroutine 
to put group of 
lines in output 
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RA 1005 



RA 1010 

RA 1011 
Above 3 



/Call word of 
* (0 10) 
/Call word of 
\ (0 10) 
/Call word of 
i (0 10) 
lines formed 



and put in output 



FD subroutine to 
get call word, storeN 
it in generated rou- 
tine and op» file, ai 
v get modulus index 
in A 



Store modulus index 
of variable in output 



IJ ("Call word "U005 
i of vari- I 
fables indexj 

to output 



MJ 

1026 

1026+v 

1026+2v 



1000 






Above 4 lines formed and 

put in output* 

v = no. of variables. 



Store name of 
variable in 
output 




Set-ups to store vari- 
able names, call words, 
and modulus indexes 
in output. 



Alter in- 
structions 
to get next 
variable 



> 



-J Variables index 



< 



© 
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Zeroize 3rd line of 
prelude for no* of un- 
modifiable constants 



MJ 1030 
formed in a temporary 





Is number of 
variables 1? 



Yes 

— > 



No 



36 = no, of lines sub- 
ject to address modi- 
fication. 

Put in 2nd line of 
prelude. 



42 = no, lines gen- 
erated routine includ* 
ing M 10" lines and 
prelude* Put in 1st 
line of prelude 



27 to Op, File 2nd line 
as no, lines Object 
Program including 
temporary 



Set-ups to make the fol- 
lowing choices, respec- 
tively, from the op- 
tional boxes in GK sub- 
routine: 

{Constant call | 50100 
I word of var, nameJ 
fCallwordof 1 T 
I mod, index J ^ 
TV 1024 l00x+2 



17 = no. of lines sub- 
ject to address mod- 
ification. 
Put in 2nd line of 
prelude 



25 = no, lines gen- 
erated routine includ- 
ing M 10 M lines and 
prelude. 

Put in 1st line of 
prelude 



15 = no, lines 
Object Program includ- 
ing temporary. Put in 
Op, File 2nd line. 



Set-ups to make the fol- 
lowing choices, respec- 
tively, from the op- 
tional boxes in GK sub- 
routine: 

fConstant call \e ninn 
TPlwordofvar.name/ 50100 

} Temp. 
lOOx+2 



^/Call word of 
iP \mod. 



index 



TV 1013 
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MJ 1016 formed 
in a temporary 



€> 



RL routine to^ 
load temporary 
in output 



K>- 



Get constant call 
word for variable 
& store in a 
temporary 



FD subroutine to 
get subscripted 
variable call word, 
store it in generated 
^routine and Op* File,/ 
and get modulus 
index 



>0 



Variables index 






Modify set-ups to 
handle remaining 
variable 



GK subroutine 
to put group of 
lines in output 



<0 




Get call word for 
modulus index and put 
in temporary 



MJ 1000 
to output 



<±> 



s there a > 
jump to" line 



No 



number? 



9- 



Yes 



Load call word of line 
number in Op* File 



Put call word 
of read library 
routine in li- 
brary list 1 



i 



Store Op* File and 
put generated routine 
on tape via op. con- 
trol routine 



Put indicator (0 2 0) 
into WW (fixed location 
12) to show that a 
READ is present* 





Entry N 



GK Subroutine to Put Group of Lines in Output 



TP 30000 50100 



TP ( Con stant cal% 0l00 

Iword of var, J 
formed and put in out- 
put 



10 1 
RJ 50100 50100 
10 2 

above 3 lines put in 

output 



Get call word for 
line number 



Yes/ !s there a "jump to"\No 
line number? J 



MJ 



(Call word of 
lline no, 
formed in a temporary 



Is sentence within 
pseudo op? 



Yes 



Put pseudo op. indi- 
cator in Q 



No 



o 



Test if jump is legaf^ 
via KI subroutine 



MJ 



Call word 
of line no, 
1 



10 

above 2 lines to 
output 



Add one to count in 
first and second 
lines of prelude 



RA lOQx-1 rtall word 
} of con- 
testant 1 
formed and put in out- 
put 



fTemporaryl 
IJ 1 of Object > lOOx-3 
^Program J 

to output 



MJ lOGx-1 
formed and put in out- 

P ut 




TP 30000 f Temporary 

M \ 2 f 0bject 
1 — ■ I Program 

TP (tall word (Temporary 
<of modulus^ of Object 
lindex (Program 

formed and put in output 



TV 30000 

1 
TV 1013 



lOQx+2 
100x+2 



TV 1024 100x+2 
formed and put in output 



RJ 50100 50100 
10 3 
TP q 30000 

above 3 lines put 
in output 




Exit 
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RL Routine to Load Temporary in Output 




' ST subroutine to 
*| load line of generated 
routine 



Up count of lines rel- 
ative to 1000 in OK 



Exit 




ST Subroutine to Load Lines of Generated Routine 




Entry 



Load line in generated 
routine output 



Alter loader 
instruction 
for next 
time 




FB Subroutine to Load 0p„ File 




Entry N 



Load A into next 
line of Op. File 



Iter storing 
instruction 
for next use 
of routine 



Up count of Op. 
File lines 



Exit 
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FD Subroutine to Get Call Word of Variable, Store It in Output, Put it 
in Op. File and Get Modulus Index in A 




Set up TS dimension 
list scanner 



'Get call word of 
variable via TS 
subroutine 



Exit 




Get modulus of variable 
minus one in A„ 



Put call word in gen- 
erated routine output 



/Load call word in 0p» 
File via FB routine 



TS Subroutine to Get Call Word of Subscripted 
Variable From Dimension List 




Is variable in 
dimension list? 



Yes 

*i 



Compute position of 
variable in list 



Put call word of vari- 
able into A 



No 



Rewind all tapes and 
stop computer after er- 
ror print-out: ALARM 1. 
COMPILATION INCONSIST- 
ENCY 'POSSIBLE COMPUTER 
ERROR • RECOMPILE 
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READ GENERATOR REGIONS 



RE 


CS1211 


RE 


LS1465 


RE 


OP 1047 


RE 


BR537 


RE 


LW1250 


RE 


KI1336 


RE 


VX1670 


RE 


BP564 


RE 


BQ632 


RE 


DL40102 


RE 


LL47246 


RE 


BK2242 


RE 


GL5360 



= CW f Call-word subroutine 



► Generation subroutines 



Dimension List 

= IZ f Referenced-line-number List 

Input buffer 

Generated routines output buffer 



RE WW12 





RE 


RE2512 




RE 


IN2513 




RE 


FW2647 




RE 


GK2726 


Generator 


RE 


RL3041 


+ tempo- < 


RE 


ST3044 


raries 


RE 


FD3047 




RE 


TS3063 




RE 


FB3073 




RE 


CN3077 




RE 


0K3142 




RE 


ER3143 




RE 


FL3150 



Fixed location holding read indicator 



Where Op File I is built up 
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READ GENERATOR 



Entry 





IA 


RE 






MJ 





30001 




CA 


RE1 






IA 


IN 







SP 


BK3 


17 


1 


TP 


A 


GL 


2 


TP 


A 


FL 


3 


TP 


CN 


GL3 


4 


TP 


CN 


GL4 


5 


TP 


BK1 


GL5 


6 


TV 


CN3 


FL 


7 


TP 


CN40 


FL2 


10 


TV 


CN31 


ST 


11 


TP 


CN13 


OK 


12 


TV 


CN32 


FB 


13 


SP 


BK4 





14 


ZJ 


GK110 


IN15 


15 


SP 


BK5 





16 


TJ 


CN3 


FW 


17 


AT 


CN10 


GL1 


20 


SP 


BK5 


1 


21 


TP 


A 


GL2 


22 


SA 


GL1 





23 


ST 


CN1 


FL1 


24 


SA 


CN4 





25 


TV 


A 


GL 


26 


AT 


CN12 


ER1 


27 


SA 


CN3 





30 


TP 


RE 


ER 


31 


TV 


A 


ER 


32 


RJ 


RL2 


RL 


33 


SP 


BK5 





34 


SS 


CN1 





35 


RJ 


CS 


CS1 


36 


TP 


CN33 


ER 


37 


TU 


A 


ER 


40 


TV 


ER1 


ER 


41 


RJ 


RL2 


RL 


42 


TP 


CN41 


ER 


43 


RJ 


RL2 


RL 


44 


RA 


ER 


BP45 


45 


ST 


BQ16 


ER 


46 


RJ 


RL2 


RL 


47 


RA 


ER 


CN15 


50 


RJ 


RL2 


RL 



} 
} 



} 
} 

} 
} 

} 



Exit 



Call word to 1st line of prelude, GLu 

Call word to 1st line of Op File 1 item 

Clearing input and output lines of prelude 

Line number to prelude 

Number (3) to v of 1st line of Op File 

Call word (50100) to 3rd line of Op File. 

Library call word reference 
Initializing ST (load routine) to GL6 
Initializing OK to read 1000 
Sets up v of FB to FL3 
Is there a "jump to" line number in the 

sentence? 

Is 3 > number of variables? 

31 + number variables = no. lines subject 

to address modification 
Number of unmodifiable constants = twice 

number of variables 
Thrice no. of variables +31 - 1 = no. of 

lines of running program including 

temporaries 
Thrice no. of variables + 31 + 6 = no. of 

lines prelude and routine 
767 + above enumeration gives address of 

1st temporary of running program 

MJ ^ ove formed to make 1st line a 

jump to 2nd line of next sentence 

Line to generated routine output 

Getting constant call word for no. 
variables minus one 

TP Call Word of First temp of 
Variables Index Object Program 
formed and sent to output 

TU 1023 1011 to output 

TU 1024 1005 to output 

TU 1025 1010 to output 
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51 


RP 


10003 


IN53 


Setups 


52 


TP 


CN26 


GK73 


for a < 


53 


RA 


ER1 


CN1 


sub- 


54 


SP 


ER1 


17 


routine 


55 


AT 


ER1 


ER1 


"56 


RJ 


GK72 


GK 


57 


SP 


BP45 





60 


RJ 


CS 


CS1 


61 


TP 


CN32 


ER 


62 


TU 


CN27 


ER 


63 


TV 


Q 


ER 


64 


RJ 


RL2 


RL 


65 


RA 


ER 


CN16 


66 


RJ 


RL2 


RL 


67 


RA 


ER 


BP45 


70 


RJ 


RL2 


RL 


71 


TP 


CN34 


ER 


72 


SP 


GL7 


17 


73 


TU 


A 


ER 


74 


TV 


GL11 


ER 


75 


RJ 


RL2 


RL 


76 


TP 


RE 


ER 


77 


TV 


CN13 


ER 


100 


RJ 


RL2 


RL 


101 


TP 


CN1 


ER1 


102 


SP 


CN14 


17 


103 


TP 


A 


ER 


104 


RJ 


RL2 


RL 


105 


SP 


BK5 


17 


106 


AT 


ER 


ER 


107 


RJ 


RL2 


RL 


110 


IJ 


ER1 


IN105 




111 


TU 


CN31 


IN 122 



112 TV CN33 FD3 



113 


SP 


CN33 





114 


SA 


BK5 





115 


TV 


A 


IN123 


116 


SA 


BK5 





117 


TV 


A 


IN125 


120 


SP 


BK5 





121 


ST 


CN1 


ER1 


122 


TP 


30000 


ER 


123 


TP 


ER 


30000 


124 


RJ 


FD13 


FD 


125 


TP 


A 


30000 


126 


RA 


IN122 


BP45 


127 


RA 


IN123 


CN1 


130 


M 


IfllSS 


CN 1 


131 


RA 


FD3 


CN1 


132 


IJ 


ER1 


IN122 



} 



00 30000 30000 to 3 temporaries 

Puts in u and v of ER1 the address of 2nd 
temporary of Object Program 

Puts a succession of lines in output 
Gets constant call word for 10 



n« irk/v: Call word of . . . 
RA 1005 /A , ^ to output 



(0 1 0) 



t>\ mm Call word of . ^ . . 
RA 1010 co i n-k t0 output 



ha irtu Call Word of . .. . 
RA 1011 rn 1 ^ output 



0) 
•d ( 
0) 



IJ 



Call word of 

Variables 

Index 



1005 to output 



MJ 1000 to output 

1 — >ER1 

1026 to output 

(1026 f v) to output 

(1026 f 2 v) to output 

Setup to get variables from string-out at 

BK6 
Setup to store call words in output at 

certain location 

Setup to store call words at above locat. 
f v. v = no. variables 

Setup to store modulus indexes at 1st 
location f 2 v 

Variables index (v - 1) formed in ER1 

Get variable from string-out input. 
Store variable as fixed const, in output. 
Get Dimension List call word of subscripted 
variable, store in output and Op File t & 
get modulus - 1 and store in output 

Modifying iiretr. to get next variable 

Index jump to get remaining variables 
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133 


MJ 





FW44 




CA 


IN134 






IA 


FW 







TP 


CN 


GL2 


1 


TU 


CN31 


FW25 


2 


TP 


RE 


ER 


3 


ST 
_ ZJ 


CN1 
FW15 


ER2 


1 vari-~\_4__ 


FW5 


able 5 


" ^ 


CN6 


GL1 


6 


TV 


CN27 


GL 


7 


TP 


CN5 


FL1 


10 


TP 


CN17 


GK75 


11 


TP 


CN23 


ER1 


12 


TV 


CN34 


FD3 


13 


TV 
MJ 


CN30 



CN11 


ER 


2 vari- 14 


FW24 


ables 15 


TP 


GL1 


16 


TV 


CN36 


GL 


17 


TP 


CN7 


FL1 


20 


TP 


CN20 


GK75 


21 


TP 


CN24 


ER1 


22 


TV 


CN35 


FD3 


23 


TV 


CN37 


ER 


24 


RJ 


RL2 


RL 


25 


TP 


30000 


ER 


26 


TP 


ER 


A 


27 


RJ 


CS 


CS1 


30 


TP 


A 


GK73 



31 RJ FD13 FD 



32 


RJ 


CS 


CS1 


33 


TP 


A 


GK74 


34 


RJ 


GK72 


GK 


35 


RA 


GK75 


BP45 


36 


RA 


FW25 


BP45 


37 


RA 


FD3 


CN1 


40 


IJ 


ER2 


FW25 


41 


TP 


RE 


ER 


42 


TV 


CN13 


ER 


43 


RJ 


RL2 


RL 



Jump to termination of generation 



Zeroize number of unmodifiable constants 

Setup to scan string-out at BK6, beginning 
of X3 variable list 

MJ to temporary ER 

Variables index set up in ER2 

Is number of variables one? 

17 = number of lines subject to address 
modification 

25 = number of lines generated routine, in- 
cluding "10" lines & prelude 

15 = Op File count of running program in- 
cluding temporaries 

1013 to temporary as address holding 
call word of variable 

1014 1014 to temporary as address of 
temporary in Object Program 

Sets up FD routine to store call word in 
output 

MJ 1016 formed in ER 

36 = no. of lines subject to address modi- 
fication 

42 = no. of lines gen. routine incl. 10 
lines and prelude 

27 = Op File count of Object Program lines, 
incl. temps 

1024 to temp, as address holding call 
word of variable 

1026 1026 to temp, as address of tempo- 
rary of Object Program 

Setup FD rtne.to store call word in output 

MJ 1030 formed in ER 

Line to output 

Get constant call word for name of sub- 
scripted variable and store name in con- 
stant pool 

Store constant call word in temporary 

Get Dimension List call word of subscripted 
variable, store in output & Op. File, and 
get modulus minus one in A 

Get call word of modulus - 1 and store in 
temporary 

Put a succession of lines into output 

Altering instructions to get a remaining 
variable 

Jump back to get a remaining variable 
MJ 1000 to output 
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Termi- 44 


SP 


BK4 





} 


nation 45 


ZJ 


FW46 


FW50 


46 


SP 


EsXVO 





} 


47 


RJ 


FB3 


FB 


50 


SP 


CN40 







51 


RJ 


LS 


LSI 


52 


TP 


CN42 


0P1 


} 


53 


RJ 


OP 


0P2 


54 


TP 


VX153 





} 


55 


QS 


VX153 


WW 


56 


MJ 
CA 

IA 




FW57 

GK 


RE 







TP 


CN33 


ER 


1 


1 


TV 


CN21 


ER 


I 


2 


TU 


GK73 


ER 


r 


3 


RJ 


RL2 


RL 


J 


4 


TP 


CN25 


ER 


} 


5 


TV 


CN1 


ER 


6 


RJ 


ST2 


ST 




7 


TP 


CN21 


ER 


} 


10 


RJ 


RL2 


RL 


11 


TP 


CN25 


ER 


1 


12 


TV 


CN2 


ER 


} 


13 


RJ 


ST2 


ST 


J 


14 


TP 


RE 


ER 




15 


TP 


BK4 


A 


} 


16 


ZJ 


GK76 


GK17 


17 


SP 


OK 





" 


20 


SS 


CN1 





► 


21 


TV 


A 


ER 




22 


RJ 


RL2 


RL 


- 


23 


MJ 





GK32 




24 


RJ 


RL2 


RL 




25 


TP 


CN25 


ER 


1 


26 


TV 


CN1 


ER 


\ 


27 


RJ 


ST2 


ST 


J 


30 


RA 


GL 


CN1 


} 


31 


RA 


GL1 


CN1 


32 


TP 


CN33 


ER 


^ 


33 


TU 


GK74 


ER 


► 


34 


TV 


ER1 


ER 




35 


RJ 


RL2 


RL 


. 


36 


TP 


CN35 


ER 


^ 


37 


TU 


GK75 


ER 




40 


TV 


OK 


ER 


> 


41 


RA 


Eft 


CN2 


- 


42 


RJ 


RL2 


RL 





Is there a "jump to" line number? 

Store call word of "jump to" line no. as 

cross reference in Op. File 
Call word referencing read routine in 

Library put into Library List 
Op File to storage and generated routine 

to tape 
Indicator bit (0 2 0) put in WW (fixed 

location 12) to show a "READ" is present 



TP 30000 50100 

E 

TP Constant 
Call Word 
of Variable 



50100 



formed and put in 
output. If more 
► than 2 variables, 
the first; other- 
wise, the second 



10 1 formed in ER 



Line to output without upping count in OK 
of lines relative to 1000 

RJ 50100 50100 to output 



10 2 to output 

MJ to ER 

Is there a "jump to" line no. in sentence? 

MJ 100X - 1 to output 



MJ Call Word of Line No. to output 
10 1 to output 

Adding one to prelude counts 



TP 



TV < 



30000 or Temporary . . . 
Call Word of Object t0 output 
of Modulus Index Program 



30000 
or 
1013 

1024 



100X +2 to output 
More than 2 var,« 1 var., or 2 
var. setups determine u of 
generated coding 
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43 


TP 


CN21 


ER 


44 


RJ 


RL2 


RL 


45 


TP 


CN25 


ER 


46 


TV 


CN3 


ER 


47 


RJ 


ST2 


ST 


50 


TP 


CN33 


ER 


51 


TV 


CN26 


ER 


52 


TU 


CN30 


ER 


53 


RJ 


RL2 


RL 


54 


SP 


CN1 





55 


RJ 


CS 


CS1 


56 


TP 


CN32 


ER 


57 


SP 


OK 





60 


SS 


CN1 


17 


61 


TU 


A 


ER 


62 


TV 


Q 


ER 


63 


RJ 


RL2 


RL 


64 


TP 


CN34 


ER 


65 


TU 


ER1 


ER 


66 


SP 


OK 





67 


SS 


CN3 





70 


TV 


A 


ER 


71 


RJ 


RL2 


RL 


72 


MJ 





30000 


73 





30000 


30000 


74 





30000 


30000 


75 





30000 


30000 


76 


RJ 


LW 


LW1 


77 


TV 


Q 


ER 


100 


TP 


A 


ER3 


101 


TP 


A 


ER4 


102 


TP 


CN22 


A 


103 


TJ 


BK3 


GK105 


104 


TP 


GK107 





105 


TP 


ER4 


A 


106 


RJ 


KI 


KI1 


107 


MJ 





GK24 


110 


RA 


CN35 


CN2 


111 


RP 


20002 


IN15 


112 


RA 


CN33 


CN1 



} 



RJ 50100 50100 to output 



10 3 to output 



TP q 30000 to output 



Putting 1 into constant pool and getting 
its call word into Q 



da ,Aftv i Call Word . . . 
RA 100X-*1 * to output 



" llTcTllolL l00X -? *• -tP-t 



Subroutine exit 



r Temporaries used in generation 

Getting call word for line number 
MJ Call word of t0 ER 
Line No. 

| Storing call word of line no. in 2 temp.5. 

Is call word of sentence > 22777? 

Put a word with U35 filled into Q to show 

Pseudo-Op. condition 
Call word of line no. to A 
Test if jump is legal 



CA GK113 



Increase excess-3 variable loading address 
by 2 to allow for 2 added "ten" lines 

Increase initial loading address of excess- 
three variables to allow for added "10" 
line following jump to line number 





IA 


RL 




Generated 


RJ 


ST2 


ST 


Routine 1 


RA 


OK 


CN1 


Loader 








Plus 2 


MJ 





300 


100X 


CA 


RL3 




Counter 









Loads line into output of generated routine, 
Ups count of 100X. Ordinal count of number 
of generated routine line relative to 1000. 
Does not include "10 w lines. 
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IA 


ST 






Generated 





TP 


ER 


30000 




Routine 


1 


RA 


ST 


CN1 




Line 












Loader 


2 


MJ 
CA 



ST3 


30000 




Control Subroutine to get 


call word < 


Df 


in output 


anc 


1 Op 
IA 


File, and 
FD 


get moduli 


is 







TP 


ER 


A 1 




1 


TU 


6 


TS 






2 


RJ 


TS7 


TS J 






3 


TP 


A 


30000 






4 


LA 


A 


17 \ 




5 


RJ 


FB3 


FB J 






6 


RA 


TS6 


BP45 " 






7 


TU 


A 


FD10 






10 


TP 


30000 


Q 


► 




11 


QT 


CS35 


A 






12 


SS 


BP45 


71 J 






13 


MJ 
CA 



FD14 


30000 




Get Call 




IA 


TS 






Word of 





RP 





BR1 1 
TS2 J 


L 


a vari- 


1 


EJ 


DL 


r 


able in 












Dimen- 












sion List 


2 


SN 


Q 


17 "1 






3 


SA 


TS 









4 


SA 


TS1 





► 




5 


TU 


A 


TS6 






6 


TP 


30000 


A 






7 


MJ 
CA 



TSIO 


30000 




Load 




IA 


FB 






Op 





TP 


A 


30000 




File 1 


1 


RA 


FB 


CN1 






2 


RA 


FL 


CN1 






3 


MJ 
CA 




FB4 


30000 




Constants 




IA 


CN 






and 
















Dummy 










i 




Commands 


2 








2 




Used to 


3 








3 




Make up 


4 








7 




Generated 


5 








15 




Routine 


6 








17 






7 








27 





Loads line into output 

Alters loading line for next line of 

output 



a variable from Dimension List t store it 

- 1 in A 
v 

Get call word of variable from Di- 
mension List 

Put call word in output 
Put call word in Op File 1 



Extract modulus from Dimension List, 
subtract one from it, and put into A v 



If variable is not in list, computer 
stops after a rewind of tapes and 
print-out: ALARM 1 COMILATION 
INCONSISTENCY POSSIBLE COMPUTER ERROR/ 
RECOMPILE 

Computing position of variable in list 
and getting call word of it into A 



Storing line in Op File 

Increase storing order 

Up count of number of lines 



1159 



10 








31 


11 








34 


12 








767 


13 








1000 


14 








1026 


15 





1 


3 


16 





3 





17 





1013 






20 



1024 



21 


RJ 


50100 


50100 


22 








22777 


23 





1014 


1014 



24 



1026 1026 





25 


10 










26 





30000 


30000 




27 





1005 


25 




30 





Q 


1016 




31 





BK6 


GL6 




32 


RA 


DL 


FL3 


When mo re 33 


TP 


LL 


GL37 


than 2 


34 


IJ 





GL24 


vars.. 










GL37 is 


35 


TV 





GL40 


initial 










loading 


36 








42 


address 


37 








1030 


of X3 


40 





50100 





names 


41 


TU 


1023 


1011 




42 




CA 


GL 
CN43 


FL 



Address holding call word of 1st variahle 
for more-than-2-variable case 



Address holding call word of variable for 

1-variable case 
Address holding call word of 1st variable 

for 2-variable case 

Address of temporary of Object Program for 

1-variable case 
Address of temporary of Object Program for 

2-variable case 



DL is initial location of Dimension List 

GL24 is loading address of variable when 

only one 
GL40 is initial loading addr. of variables 

when there are two 



Call word of Read permanent library routine 
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Start 





Generate 

GL 27 

10 

2 

3 

4 

5 line * 

6 MS 

7 10 
10 EF 


11 
3 






DA 

? 


Stop Generator Flow Charts 




















Generate 

FL 27 2 

10 2 
2 


Z— ^ 






Place code for 
Rewind 1 in CP f 
obtain CW 




Fill in v-add* 
of EF in GL10 






























J 


b 



G> 



O 



Inspect indi- 
cator bits in 
12 8 



<Is there a 
List order? 



No 



© 



Yes 

— *> 



Generate 

GL11 RJ 50077 50077 

12 10 3 2 

13 RP 30003 1005 



14 TP ? 

15 RP 10024 

16 TP ? 



WB105 

1007 

WB144 



Place word of "printer 
bkpt. stop" symbols 
in C.P. 



Fill in 
GL16 V 



G^ 



22 


— > 


GL"v" 


11 


— > 


GLl'V* 


3 


— > 


GL2V* 


3 


— > 


FL'V" 


12 


— » 


FLl n v" 


50077-3 


►FL2"u" 



Extract n (# of 
tape no. CW's in 
rewind list) from 
RW 



n < 4? 



Yes 



Form 
S = 3n 



No 



Form 
*l c - 



2n+3 



Increment 
GL by 8 
GL1 by 8 
FL1 by 8 
Fill in GL14"u" 
with (1042+8) 




to 



© 



Place GTH parameter 
to write 1 block from 
List buffer in C.P.; 
CW— >ER1 



Place 

SP ? 17 
in ER2 




Place 

AT CW GT3 in ER3 
RJ GT2 GT in ER4 
when CW is that 
saved in ER1 



Plscp 

RJ 1026+2n 1024+2n 
in ER3 



© 



Set up RP in Box 1 
to transfer 3 words; 
Set up RA in Box 1 
to increment by 3 



Set up RP in Box 1 
to transfer 2 words; 
Set up RA in Box 1 
to increment by 2 



© 



Stop Generator Flow Charts 



®-~ 



Set up TU in Box 1 
to start at RW1 



Set up TP in Box 1 
to start from GL17 



.0J 



n-1 



<2> 




Yes 



n < 0? 



flo* / 



No 



a TU ? 

+1RP ? 

+2TP ER2 

+3RA a +2 



ER2 
tf +3 

? 

? 



Box 1 



CO 



© 



Increment TU order 
in Box 1 to extract 
next line for RW 



<£) 0- 



Set up RL 
subroutine 




-s/PG 



Insert 3 xS3 lines 
at end of gener- 
ated coding 



<D 



© 



Is there a 
programmed 
Read? 



Yes 



© 



No 



Check dimension 
list to see if AUTO 
read required 



®- 



No 



Generate 
TP t 10 t RJ, 10, 
MJ f Par am v 3 
flex code words. 
Set up prelude 



Yes 



© 



© 



Set up RL 
subroutine 



-^-<D 



Parameter 
— >0P rtne, 




->ST0P 



Stop Generator Flow Charts 




■>(<4 tapes?V-^|TP x+15 



No 




*/riA » 



10 PR3 




-© 



& 



RJ - - 



10 PR2 PR 




Zero to 

const, 

pool 



SP L(0) 



— <$^© 






L) »MS x+1 



& 




ZJ x+1 1000 




»/ Ri\ » 



SJ x-3 x+1 




11 to 

const. 

pool 



<5 



TJ L(ll) x+2 




MJ x-5 




SP A 14 




Rewind 
code — * 
const, pool 



-© 







N »J 



SA L 
Crew cod,) 




*/RL) > 



EF A 




TP x+6 



<4 tapes?l^4|TP x+3 



No 



& 




Q&l^T^^ 1 I jgS\ CP |-^-<o) 



©-^ 



10 PR2 




-KITE 



MJ x-13 



_^L\ 



Stop Generator Flow Charts 



& 



» RJ GT2 GT 




RL\ > 



MJ 30000 



^AlS ^jT) » 



x+2 13 



<5 






Q> 




(x+14) 1 




Insert 14 
flex code 
words 



Increment 
GL by 36 
GL1 by 22 
GL2 by 14 
FL1 by 33 




In above routine X = address rel. 1000 of order currently being generated 



STOP GENERATOR REGIONS 



Generation 


I RE 


CS1211 


Subroutines 


< RE 


BR537 




[re 


OP 1047 




RE 


DL40102 




RE 


BK2242 




RE 


GL5360 




RE 


RW50023 



RE WW 12 



Call word routine (= CW) 
Machine error print-out routine 
Op control routine 



Buffer input region 

Buffer output region for generated routine 

Rewind list of call words of tape no.'s referenced 

by read and list instructions 
Fixed location of read, list indicator 



RE 


ST2512 




RE 


SG2513 




RE 


HT2513 


► Stop Genera 


RE 


PG2702 




RE 


RL3017 




RE 


CN3024 




RE 


ER3137 w 


Temporaries 



RE FL3144 Where Op File I is built 

RE DA77300 Object Program service routine 

RE PR77250 UNICODE print-out routine 

RE GT210 Object program tape handler 

RE WB71005 List buffer (170) 

RE IW50077 Call word for LIST permanent library routine 
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STOP GENERATOR 





IA 


ST 










nil) 




30000 




Exit 




CA 


ST1 










IA 


SG 








HT 


TP 


CN 


HT166 




Set indicator to zero 


1 


RP 


10005 


HT3 


} 


Zeroize 5 lines of GL 


2 


TP 


CN 


GL 




3 


SP 


BK3 





1 




4 


LA 


A 


17 


\ 


Call word 


5 


TU 


A 


GL 


J 




6 


TV 


CN4 


GL 




11 -» GL V 


7 


TV 


CN2 


GL1 




3— >GL1 V 


10 


TP 


BK1 


GL5 




Line number 


11 
12 


RP 
TP 


30003 
CN32 


HT13 
GL6 


} 


MS, M 10 w line, EF 


13 


SP 


CN27 







Rew. 1 code 


14 


RJ 


CS 


CS1 






15 


TV 





GL10 




Fill in EF V 


16 
17 


RP 
TP 


10003 
CN 


HT20 
FL 


} 


Zeroize 3 lines for Op File item 


20 


TV 


CN24 


FL 




2 -» FL *v M 


21 


TV 


CN24 


FL1 




2 -> FL1 V 


22 


SP 

LA 


BK3 

A 



17 


} 


Call word 


24 


TU 


A 


FL 


J 




25 


TP 


WW 


Q 




I/O indicator word 


26 
27 


QT 
ZJ 


CN17 
HT30 


A 
HT125 


} 


Is there a list? 


30 
31 


RP 
TP 


30006 
CN35 


HT32 
GL11 


} 


RJ, 10, RP, TP, RP, TP 


32 
33 


SP 
RJ 


CN30 
CS 



CS1 


} 


Stop word to constant pool 


34 


TU 


A 


GL16 




Fill in TP p "u" 
22 — »GL V 


35 


TV 


CN7 


GL 




36 


TV 


CN4 


GL1 




11-^GL1 "v" 


37 


TV 
CA 

IA 


CN2 
SG40 

SG40 


GL2 




3 — -MJL2 w v" 


40 


TV 


CN2 


FL 




3 — ->FL "v" 


41 


TV 


CN5 


FL1 




12-»FL1 V 


42 


TU 


CN35 


FL2 




IW CW > FL2 "u" 


43 


TP 


CN12 







Mask for n from RW list 


44 


QT 


RW 


ER 




Extract * tape call words (n) 


45 


TP 


A 


ER1 




n — >ER1 


46 


TJ 


cm 


HT51 




Test v -<■ 4 


47 


TP 


CN25 


HT166 




4 or more, set indicator to large no 


50 


TP 


CN2 


ERl 




3 — >ER1 
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51 


SP 


A 


1 


52 


AT 


ER1 


ER1 


53 


SA 


CN15 


17 


54 


TU 


A 


GL14 


55 


RA 


GL 


ER1 


56 


RA 


GL1 


ER1 


57 


RA 


FL1 


ER1 


60 


SP 


CN31 





61 


RJ 


CS 


CS1 


62 


TP 


A 


ER1 


63 


TP 


PG 


ER2 


64 


IJ 


HT166 


HT73 


65 


TP 


CN100 


ER3 


66 


TU 


ER1 


ER3 


67 


TP 


CN101 


ER4 


70 


TU 


CN37 


HT106 


71 


TV 


CN112 


HT110 


72 


MJ 





HT101 


73 


SP 


ER 


1 


74 


AT 


CN14 


ER3 


75 


SA 


CN24 


17 


76 


AT 


ER3 


ER3 


77 


TU 


CN40 


HT106 




CA 


SG100 






IA 


SG100 




100 


TV 


CN105 


HT110 


101 


TU 


CN42 


HT105 


102 


TV 


CN103 


HT107 


103 


IJ 


ER 


HT105 


104 


MJ 





HT113 


105 


TU 


[30000] 


ER2 


106 


RP 


[OJ 


HT110 


107 


TP 


ER2 


[30000 


110 


RA 


HT107 


[30000 


111 


RA 


HT105 


CN17 


112 


MJ 





HT103 


113 


TV 


HT107 


RL1 


114 


RS 


HT107 


CN103 


115 


SA 


CN41 





116 


TP 


CN 


RL4 


117 


TV 


A 


RL4 


120 


RJ 


PG114 


PG 


121 


TV 


RL1 


HT124 


122 


RA 


HT124 


CN6 


123 


RP 


30003 


HT163 


124 


TP 


CN106 


30000 


125 


QT 


CN20 


A 


126 


ZJ 


HT151 


HT127 


127 


TP 


CN 


ER 


130 


TV 


6 


ER 


131 


TP 


CN16 


ER1 



} 
} 



2n 

Form inc. for prelude (3n or 2n f 3) 
Add 1042, form (1042 4- 3n, 1045 f 2n) 
Fill in TP 2 "u" 

Increment prelude counters 

General GTH parameter to write 1 block 
to C.P. 
Save it 

SP 17-»ER2 

How many tapes? 

< 4; AT GT3— ->ER3 

AT L(GTHp) GT3 ER3 

RJ GT2 GT —> ER4 
Set up RP to write 3 words 
Set up RA to inc. by 3 
Jump 

4 or more tapes; 2n — >A 
Add 1024 -» 1024 + 2n in ER3 M v w 
Add 37 2 — > RJ 1026 + 2n 
Complete order 
Set up RP to write 2 words 



Set up RA to inc. by 2 

Set up TU order to start at RW1 

Start at GL17 

Count down on n index 

Exit 

Complete SP order 



? in A 



Increase by 1 "u M 

Now HT 103 "v" holds next address in GL 

Subtract GL17 

Add 1007 

Zeroize RL4 

And set it up (add. rel. 1000) 

Execute PG coding 

Increment by 14 

Insert XS3 - "END OF OUTPUT" 

then go to conclusion 
No list - how about a programmed Read? 

No. prog. Read - investigate auto-read 
Set up ER with #77 CW 's 
77000 is 1st CW 
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132 


TU 


6 


HT136 


Set up RP 


133 


IJ 


ER 


HT135 


Count down on index 


134 


MJ 





HT155 


Exit - no auto-read 


135 


SP 


ER1 







136 


RP 


[o] 


BR1 




137 


EJ 
CA 

IA 


nr 
SG140 

SG140 


HT140 




140 


SN 


Q 


17 




141 


SA 


HT136 







142 


SA 


HT137 







143 


TU 


A 


HT144 




144 


TP 


[30000] 


Q 




145 


QT 


CN25 


A 


Inspect X 


146 


ZJ 


HT147 


HT151 


If zero, auto-read 


147 


RA 


ER1 


CN1 


No - prepare to search for next CW 


150 


MJ 





HT133 




151 


TV 


CN102 


RL1 


Read coding - prepare to gen. codi 


152 


TP 


CN13 


RL4 


Gen from GL11, add entr — > 1002 


153 


RJ 


PG114 


PG 


Execute PG coding 


154 


MJ 





HT163 


Go to conclusion 


155 


RP 


30011 


HT157 


NO READ, NO LIST 


156 


TP 


CN55 


GUI 




157 


TV 


CN7 


GL 


22 — > GL *v w 


160 


TV 


CN4 


GL1 


11 — > GL1 V 


161 


TV 


CN2 


GL2 


3 — > GL2 "v w 


162 


TV 


CN4 


FL1 


11 — »FL1 M v w 


163 


TP 


CN77 


0P1 


Conclusion - parameter to Op 


164 


RJ 


OP 


0P2 




165 


MJ 





ST 


Exit 


166 



CA 



SG167 





Indicator word 
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PG 





IA 


SG167 











SP 


RL4 


17 


Add. entr. — > A w u" 




1 


AT 


CN43 


ER 


Add TP 20 




2 


IJ 


HT166 


PG4 


Or < 4 tapes? 




3 


RS 


ER 


CN22 


Yes, subtract 3 M u" 




4 


RJ 


RL3 


RL 


Store this running line 




5 


TP 


CN56 


ER 


10 PR3 




6 


RJ 


RL3 


RL1 


Store this 10 line 




7 


TP 


CN57 


ER 


RJ 




10 


RJ 


RL3 


RL 


Store this running line 




11 


TP 


CN60 


ER \ 
RL1 J 


10 PR2 PR 




12 


RJ 


RL3 


to output 




13 


SP 


CN 





Clear A 




14 


RJ 


CS 


CS1 


— > Constant Pool 




15 


TP 


HT13 


ER 1 






16 


TU 


A 


ER \ 


SP 1(0) to output 




17 


RJ 


RL3 


RL J 






20 


SP 


RL4 





Add entr. — > A *V* 




21 


AT 


CN44 


ER 


Add MS 1 




22 


RJ 


RL3 


RL 


Store this running line 




23 


SP 


RL4 


17 


Add entr. — ■» A "u" 




24 


AT 


CN45 


ER 


Add ZJ 1 1000 




25 


RJ 


RL3 


RL 


Store it 




26 


SP 


RL4 


17 


Entr. — >A w u w 




27 


SA 


RL4 





and A "v w 




30 


AT 


CN46 


ER 


Add 45 77775 00001 




31 


RJ 


RL3 


RL 


Store this (SJ line) 




32 


SP 


RL4 





Entr. — >A "v w 




33 


AT 


CN47 


ER 


Add TJ 2 




34 


SP 


CN111 





11 10 -*A 




35 


RJ 


CS 


CS1 


— > Constant Pool 




36 


TU 


A 


ER 


TJ L(ll) X f 2 




37 


RJ 
CA 

IA 


RL3 
SG227 

SG227 


RL 


Store this 




40 


SP 


RL4 





Entr. — >A tt v w 




41 


AT 


CN50 


ER 


Add 44 77777 77773 -> MJ 


line 


42 


RJ 


RL3 


RL 


Store it 




43 


TP 


CN51 


ER 


SP A 14 




44 


RJ 


RL3 


RL 


Store it 




45 


SP 


CN26 





Rewind code — >A 




46 


RJ 


CS 


CS1 


— >C.P. (Constant Pool) 




47 


TP 


HT115 


ER 


SA — 




50 


TU 


A 


ER 






51 


RJ 


RL3 


RL 


Store it 




52 


TP 


CN34 


ER 


EF A 




53 


RJ 


RL3 


RL 


Store it 




54 


SP 


RL4 


17 


Add entr. — >A V 
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55 


AT 


CN52 


ER 


Add TP 6 


56 


IJ 


HT166 


PG60 


or less than 4? 


57 


RS 


ER 


CN22 


Yes - subtract 3 "u w 


60 


RJ 


RL3 


RL 


Store it 


61 


TP 


CN56 


ER 


10 PR3 


62 


RJ 


RL3 


RL1 


Store this 10 line 


63 


SP 


RL4 





Add entr. — > A w v n 


64 


AT 


CN53 


ER 


Add 44 77777 77765 ( ^ MJ) 


65 


RJ 


RL3 


RL 


Store it 


66 


IJ 


HT166 


PG70 


How many tapes? 


67 


MJ 





PG77 


< 4 - jump 


70 


TP 


CN100 


ER 


AT GT3 


71 


TU 


ER1 


ER 


AT CWCWrite param.) GT3 


72 


RJ 


RL3 


RL 


Store it 


73 


TP 


CN101 


ER 


RJ GT2 GT 


74 


RJ 


RL3 


RL 


Store it 


75 


TP 


CN54 


ER 


MJ 30000 


76 


RJ 


RL3 


RL 


Store it 


77 


SP 
CA 

IA 


RL4 
SG267 

SG267 


17 


Add entr. — »A w u" 


100 


AT 


CN21 


ER 


Add 2 13 


101 


RJ 


RL3 


RL 


Store it 


102 


SP 


RL4 


17 


Entr. — » A "u" 


103 


AT 


CN23 


ER 


Add 14 1 


104 


RJ 


RL3 


RL 


Store it 


105 


TV 


RL1 


PG107 


Extract address in GL list 


106 
107 


RP 
TP 


30014 
CN63 


PG110 \ 
[30000] J 


Insert Flex codes 


110 


RA 


GL 


CN11 


Inc. GL M v w by 36 8 


111 


RA 


GL1 


CN7 


Inc. GL1 w v H by 22 8 


112 


RA 


GL2 


CN6 


Inc. GL2 V by 14 8 


113 


RA 


FL1 


CN10 


Inc. FL1 w v" by 33 8 


114 


MJ 
CA 

IA 



SG304 

SG304 


[30000] 


Exit 


RL 


RA 


RL4 


CN1 




1 


TP 


ER 


[30000] 




2 


RA 


RL1 


CN1 




3 


MJ 





[30000] 




4 


[0 
CA 



SG311 


0] 
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IA 


SG311 






CN 













1 








1 




2 








3 




3 








4 




4 








11 




5 








12 




6 








14 




7 








22 




10 








33 




11 








36 




12 








77 




13 








1002 




14 








1024 




15 








1042 




16 








77000 




17 





1 







20 





2 







21 





2 


13 




22 





3 







23 





14 


1 




24 





37 


2 


RJ in "u" 


25 


7 










26 


2 


200 





General rewind 


27 


2 


200 


10000 


Rewind #1 


30 





61616 


16161 


Breakpoint sto 


31 


74 


20100 


1005 


Parameter to w 


32 


MS 










33 


10 





DA 




34 


EF 





A 




35 


RJ 


IW 


IW 




36 


10 


3 


2 




37 


RP 
CA 

IA 


30003 
SG351 

SG351 


1005 




40 


TP 


30002 


WB105 




41 


RP 


10024 


1007 




42 


TP 


RW1 


WB144 




43 


TP 


20 







44 


MS 





1 




45 


ZJ 


1 


1000 




46 


45 


77775 


00001 




47 


TJ 





2 




50 


44 


77777 


77773 




51 


SP 


A 


14 




52 


TP 


6 







53 


44 


77777 


77765 




54 


MJ 





30000 




55 


TP 


1005 







56 


10 





PR3 




57 


RJ 
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60 


10 


PR2 


PR 




61 


MJ 





1000 




62 





1006 


3 




63 


45 


47200 


62204 


cr t END A 


64 


03 


26041 


23406 


OF A RUN 


65 


45 
01 


45000 
03041 


00000 
22031 


cr cr 


66 


TOAREW 


67 


14 


06220 


41454 


IND A 1/ 


70 


03 


04013 


01520 


A TAPE 


71 


24 


04242 


00104 


SA SETA 


72 


24 


20121 


70304 


SERVO A 


73 


06 


03041 


40604 


NOAINA 


74 


30 


04051 


40104 


AAHITA 


75 


24 


01301 


20157 


START * 


76 


45 


22140 


10103 


cr ditto 


77 



CA 

IA 


GL 
SG411 

SG411 


FL 




100 


AT 





GT3 




101 


RJ 


GT2 


GT 




102 








GUI 




103 








GL17 




104 








2 




105 








CN104 


L(2) 


106 


30 


50270 


15131 


ENDAOF 


107 


01 


51676 


65267 


AOUTPU 


110 


66 


22010 


10101 


T. A A 


111 








13 




112 




CA 



SG424 


CN2 


L(3) 
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Flow Chart for Dimension Generator 




Entrjr 



Set up index for 
number of sub- 
scripted variables 



<D- 



Call word 2 

of variable 

Modulus 

of variable 

Above two lines made up 

for Op File of variable 

in dimension list 



Preceding made-up Op 
File and the dummy line 
30000 0, sent to op. 
control routine for 
storage of Op. File 




< 



Variable index 
jump 






G> 



Add 4 

"Alter 
instructions 
referencing 
dimension list 
so data on 
next variable 
will be secured 



>0 



Mask out number 
of subscripts 
used with current 
variable from 
dimension list 



Yes 



d 



Is 2 > number 
of subscripts? 



No 



No 



Add 6 



©- 



Is 4 > number 
of subscripts? 



Alter instructions 
referencing dimen- 
sion list so data 
on next variable 
will be secured 



Add 5 



Yes 



Alter instructions 
referencing di- 
mension list so 
data on next vari- 
able will be 
secured 




DIMENSION GENERATOR 





RE 


CQ2512 








RE 


C02547 








RE 


OP 1047 








RE 


DL40102 








IA 


CQ 









MJ 





30000 


Exit 


1 


TP 


6 


Q \ Mask # of arrays to establish 


2 


QT 


COll 


A J 


index 


3 


TP 


A 


C010 


Set index 


4 


IJ 


C010 


CQ5 




5 
6 


SP 

TU 


DL2 

A 


^ 13 | Call word-»Op File 1 


7 
10 


SP 
TV 


DL3 
A 


C014 J Modulus ~ > °P File l 


11 
12 


TP 
RJ 


C012 
OP 


0P2 I Parameters t0 0P» 


13 


IJ 


C010 


CQ15 




14 


MJ 





CO 


Exit 


15 
16 


TP 
QT 


DL3 
COll 


V j Mask # of subscripts 


17 


TJ 


C02 


CQ31 


2 >(A)? No-add 4 (it must be 


20 


TJ 


C04 


CQ25 


4 >(A)? 


21 


RA 


CQ5 


C07 " 




22 


RA 


CQ7 


C07 


' Add 6 


23 


RA 


CQ15 


C07 . 




24 


MJ 





CQ5 




25 


RA 


CQ5 


C06 " 




26 


RA 


CQ7 


C06 


- Add 5 


27 


RA 


CQ15 


C06 J 




30 


MJ 





CQ5 




31 


RA 


CQ5 


C05 " 




32 


RA 


CQ7 


C05 


► Add 4 


33 


RA 


CQ15 


C05 . 




34 


MJ 
CA 

IA 



CQ35 

CO 


CQ5 













] 




1 








1 




2 
3 










2 
3 


No. of subscripts 


4 








4 




5 





4 


o 




6 





5 


o 


- Modifiers 


7 





6 


J 




10 








[o] 


Index 


11 








77777 


Mask 


12 





C015 


C013 


Parameters 


13 








2 1 
J 


L 


14 








f Op File 1 


15 



CA 


30000 
C016 
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Pseudo-Operation Heading (Generation) - Flow Chart 




Call word of second 
line of pseudo opera- 
tion to v of second 
jump line of generated 
coding. 



Call word of pseudo- 
op heading to u of 
first lines of Op File 
I and prelude 




Transfer gener- 
ated routine to 
tape and 0p» File to 
storage via Op con- 
trol subroutine 



-<1 




PSEUDO-OP HEADING-GENERATION 





DC 


BK2242 






RE 


OP 1047 






RE 


PS2512 






IA 


PS 







MJ 





30000 


1 


TV 


BK4 


PS21 


2 


LQ 


BK3 


Q17 


3 


TU 





PS10 


4 


TU 


Q 


PS 12 


5 


TP 


PS23 


0P1 


6 


RJ 


OP 


0P2 


7 


MJ 





PS 


10 





[0] 


2 


11 








2 


12 





[o] 


11 


13 








3 


14 











15 











16 











17 











20 


MJ 





30000 


21 


MJ 





[o] 


22 


10 





1 


23 





PS 12 


PS 10 




CA 


PS24 





} 
} 
} 



Exit 

Call word of second line of subprogram to v 

of output line 
Call word of Pseudo-Op heading to u of 1st 

line of Op File J. 
Same to u of 1st line of prelude 
Transfer generated routine to tape and Op 

File to storage 
Exit 

Op File 1 



► Prelude of generated routine 



Generated routine plus "10 M line 

Parameter word for transfer of generator 
to tape and Op File to storage 



The line number in input buffer line bkl is inserted in PS17 
by generation control prior to operation of this routine in the core. 
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End of Tape — Generation 

Control of the End of Tape Generator is in the last part of the Control 
Generation subroutine. First the Op File is transferred to the proper storage 
area. Then RJ KB KB1 does the following things: 

It closes out the Op File block, sending it to tape, and adds on an "End of 
Entry** block. In the "End of Entry" block following the first two lines, the 
contents of locations 5-17 are reproduced. Prior to this, the value of 14 is 
computed and a warning print-out given if the number of blocks scheduled to be 
put on tape 5 will exceed 2500. 

Two blocks of Z's are added to the tape holding the generation subroutines 
following an "End of Entry" block. 

List I of the library routines referenced is sent to tape 5 with an initial 
block having in its second line the contents of counter 5. An "End of Entry" 
block is added at the end. 

Next, RJ UG UG1 puts the Dimension List on tape 5 with opening and 
closing blocks. RJ IG IG1 puts the Constant List on tape 5. RJ BU BUI 
references a BX subroutine to build an excess-three symbol list of single-valued 
variables. Then the BU subroutine sends this list to tape 5 with the appropri- 
ate beginning and ending block. 

RJ EG EG1 rewinds the string-out input tape and the generation-routine 
tapes and moves backward on tape 5 until the reader head is positioned just 
before the entry blocks of the Op File I data. 

RJ BE BEl gives the termination print-out for generation and provides 
the option of interruption or continuation of the UNICODE program. 

Subsidiary subroutine TE is another name for KB during the "End of Tape" 
operation. TF is a list of labels and a mask. EW is a subroutine which adds 
Z*s to a title block and transfers it to tape and contains a portion which 
puts List I on tape. IW is a subroutine which takes any length list and adds 
it to tape, computing the number of blocks and adding at the end an "End of 
Entry" block. 
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RJ BV BV1 is an instruction within TE which in turn references regions 
BM f BN, and BO and computes the value of 14. 

Explanation of FS f a region of 7 temporaries used during operation of IW t 
is given in annotated form following the print-out of the Reco coding. 
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End of Tape - Generation - Flow Chart 




'Entry 



Transfer "End of Tape" 
generator from drum 
to core 



* Op File to storage 



Fill Op File buffer 
region with Z*s 



^Compute tape 5 data 
code word, store in 14, 
and print alarm, if needed 



"End of Entry" to buf- 
fer region 



Put data of 5-17 in 
buffer region 



"End of Entry" block 
to tape 5 



Final Op File 1 
block to tape 5 



<D 




"End of Entry" block 
to tape holding gen- 
erated routines 



"End of Entry" block 
to tape 5 



2 blocks of Z's to 
gen. routine tape 



DIMENS and (6) to 1st 
2 lines of buffer 
region 



List I put 
on tape 5 



* Block to tape 5 



LIST I and content of 
5 to 1st 2 lines of 
buffer region 



Block 
put on tape 5 



Dimension list to 
tape 5 



a> 



"End of Entry" 
block to tape 5 
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00 




CONSTA and (10) to 
buffer region* Block 
to tape 5. Constant 
List to tape 5. "End 
of Entry" block to 
tape 5. 



A 



Build excess-three 
symbol list of single* 
valued variables 



Entry 
\ after 
restart 




Is A = orJya 



V 



Jump to UNICODE 
control routine 
in drum to start 
set-up segmen- 
tation 



No 




Rewind all tapes 
and computer 
stop 




SYMBOL and (7) to 
buffer region 



Block to tape 5. Symbol 
list to tape 5. End of 
Entry block to tape 5, 



Rewind string-out input 
tape. Rewind generation 
routine tape* Move 
back tape 5 to begin- 
ning of Op File. 




Print-Out: END OF GEN- 
ERATION. TO INTERRUPT 
COMPILATION SET A NOT= 
0. START. 



CD 




Construct Code Word For Tape Data (Word 14) 
Bits 



33-35> # Blks Constant Pool 



27~32> # Blks Dimension List 



21-26> « Blks Symbol List 



15-2$ Read List Indicator Bits from Location 12 



0-14 



^ # Blks Corrected Problem + 

* Blks Op File 1 + 
y # Blks List 1 + 

* Blks Dimension List + 

* Blks Constant Pool 



/is v portion of 
/ word + * blocks 
■n symbol list 
V <2500 (10)? 



No 



Warning. Uni servo data 
will exceed 2500 
blocks. Attempt being 
made to continue 
compilation 



M 

S 

a. 

o 

H 
0) 
•O 

I 

CD 

a 

CD 

►* 
09 
r+ 
M- 

O 

a 




End of Tape — Generation 
Regions 

Generation Subroutine regions are also needed for assembly of this tape. 



RE 


TE2512 


RE 


TF2565 


RE 


EW2573 


RE 


IW2610 


RE 


IG2675 


RE 


UG2713 


RE 


EG2732 


RE 


BE2750 


RE 


BU2774 


RE 


BX3012 


RE 


BV3052 


RE 


BM3104 


RE 


BN3123 


RE 


B03154 


RE 


FS3214 


RE 


BZ3223 


RE 


BW4223 


RE 


BY2777 
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End of Tape — Generation 



(See Control Generation Routine (CG77-111) for control portion of these 
End-of-Tape Subroutines.) 




1 
2 
3 
4 
5 
6 
7 

10 
11 
12 
13 
14 
15 
16 

17 
20 
21 
22 
23 
24 
25 
26 
27 
30 
31 
32 
33 
34 
35 
36 
37 
40 
41 
42 
43 
44 

45 
46 
47 
50 
51 
52 



IA 
MJ 
TP 
ZJ 
AT 
TV 
TP 
SS 
AT 
TU 
RP 
TP 
TP 
RJ 
RA 
RJ 

TP 
TP 
RP 
TP 
RP 
TP 
RJ 
RA 
TP 
TP 
RP 
TP 
TP 
RJ 
RA 
TP 
TP 
RJ 
RA 
RJ 
RA 
TP 

TP 
TP 
QT 
ZJ 
RJ 
MJ 
CA 



TE 



ES 

TE3 

RC1 

A 

GP5 

ES 

GP4 

A 

10000 

GP2 

RC 

GT2 

ES5 

BV 

TF 

TF1 

30013 

5 

10153 

GP2 

GT2 

ES5 

TF 

TF1 

10166 

GP2 

RC4 

GT2 

ES6 

GP2 

GP2 

GT2 

ES6 

GT2 

ES6 

ES5 

TF2 

TF5 

5 

TE51 

EW4 



TE53 



30000 

A 

TE16 

A 

TEll 

A 

17 

A 

TEH 

TE13 

30000 

GT3 

GT 

GP10 

BV1 

NP 

NP1 

TE23 

NP2 

TE25 

NP15 

GT 

GP10 

GN 

GN1 

TE33 

GN2 

GT3 

GT 

GP10 

GN 

GN1 

GT 

GP10 

GT 

GP10 

FS5 

NP 



NP1 
TE 
EW 
EW5 



Exit 
Entry 



Last block of Op File % filled with 
*" Z*s and transferred to tape 5 



To set up code tape data word 14 and test 
length of data to go on Uniservo 5 



End of entry block of Op File Iwith data 
on 5-17 goes to Uniservo 5 



End of entry block of subroutines for 
Uniservo 4 or 7 



2 blocks of Z's following subroutines 
on tape 4 or 7 



Setting up counter of blocks from beginning 
of Op File on in tape 5 



* Start of transfer of List J to tape 5 
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IA 
30 



01 

46 

26 

27 



CA 



IA 
RP 



TP 
TP 
RJ 
MJ 
TP 
TP 
QT 



10 RJ 

11 TP 

12 RA 

13 MJ 

14 
CA 



TF 

50270 

30506 

34656 

51506 

34473 

7777 

TF6 

EW 

10166 

GP2 

RC 

GT2 



EW14 

GP3 

5 

IW 

FS 

FS5 


EW15 



15131 
65473 
60104 
56624 
05065 




ENDAOF 
AENTRY 
LISTAl 
CONSTA 
DIMENS 
Mask 



EW2 

NP2 

GT3 

GT 

30000 

IW64 

Q 

FS2 

IW1 

FS4 — f- No. of blocks of library list goes to FS4 



FS4 

TE 

LN 



Subroutine to fill a block containing 2 
title lines with lines of Z r s and transfer 
to tape 5 



To finish transferring List I of library 
routine call words to tape 5 



Adding in no. blocks of Library List I to 
accumulative block counter 







IA 


IW 









MJ 





30000 




1 


TP 


GP10 


FS 




2 


TP 


IW64 


A 




3 


TJ 


GP6 


IW20 




r 4 


TP 


FS2 


A 




5 


TJ 


GP5 


IW35 




6 


SP 


IW64 


17 


List in 


7 


TU 


A 


IW11 


Drum 


10 


RP 


30170 


IW12 




11 


TP 


30000 


NP 


< 


12 


TP 


RC 


GT3 




13 


RJ 


GT2 


GT 




14 


RA 


FS 


GP10 




15 


RS 


FS2 


GP5 




16 


RA 


IW64 


GP5 



Subroutine Used to Transfer a List 
to Tape 



Exit 

Entry. Starting count of number of blocks 
with 1 

?■ Is list located in drum or core? 

1, Is 170 > no. lines left in list? If so, go to 
J partial-block portion 

f Setting up transfer line for block transfer 



L 17 MJ 



20 TP 

21 TJ 



FS2 
GP5 



IW4 

A 
IW35 



} 
} 



} 



Transferring block lines to buffer in core 

Writing 1 block on tape 

Counting number of blocks 

Subtracting no. lines transferred from FS2 

Increasing address to next line to be 

transferred 
Jump back to continue transferring data, 

klocJc by block, to tape 
Is 170>no. lines left in list? If so, go to 

partial block portion 
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22 


DV 


GP5 


FS1 


List in 


23 


TP 


A 


FS2 


Core 


24 


TP 


FS1 


A 




25 


SS 


GP10 


25 


4 


26 


AT 


RC 


GT3 




27 


TV 


IW64 


GT3 




30 


RJ 


GT2 


GT 




31 


RA 


FS 


FS1 




32 


MP 


FS1 


GP5 




33 


AT 


IW64 


IW64 




.34 


TP 


FS2 


A 




r35 


ZJ 


IW36 


IW57 




36 


SA 


GP6 


17 


Partial 
Block 
to 

Tape 5 
after * 


37 
40 
41 


TU 
SP 
TU 


A 

IW64 

A 


IW42 

17 

IW43 


42 


RP 


30000 


IW44 


43 
44 


TP 
TP 


30000 
GP5 


NP 

A 


Filling 
With Zs 


45 
46 


SS 

TU 


FS2 

A 


17 
IW52 




47 


RA 


IW52 


GP4 




50 


TV 


FS2 


IW53 




51 


RA 


IW53 


RC1 




52 


RP 


10000 


IW54 




53 


TP 


GP2 


30000 




54 


TP 


RC 


GT3 




55 


RJ 


GT2 


GT 




1 56 


RA 


FS 


GP10 


End of 


[57 


TP 


TF 


NP 


Entry 


60 


TP 


TF1 


NP1 


Block " 


61 


RJ 


EW4 


EW 




62 


RA 


FS 


GP10 




.63 


MJ 





IW 




64 












I 

} 



No. of whole blocks to be transferred— >FS1 
Remainder — >FS2 

Setting up parameter and transferring 
no. whole blocks of list to tape 
in one reference to tape handler 

Upping block count 

Updating address for next line to be 

transferred 
No. lines left in list — >A 

Setting up repeat lines to transfer re- 
mainder of data to NP 



Transferring data to NP 

Calculating number of Z lines needed and 
setting up repeat lines accordingly 



Transferring Z lines to buffer region to 
fill up block 

Transferring final block to tape 

Upping block count 

ENDAOFl . . , .. .. . 

AENTRY I terminating block 

Block to tape 

Upping block count of list 

Input line holds address of 1st line of 
list in v 



CA IW65 



Routine to Put List of Constants on Tape 5 





IA 


IG 







MJ 





30000 


1 


TP 


B03 


A 


2 


ZJ 


IG3 


IG 


3 


TP 


TF3 


NP 


4 


TP 


10 


NP1 


5 


RJ 


EW4 


EW 


6 


TP 


IG15 


IW64 


7 


TP 


GP3 


Q 





QT 


10 


FS2 



} 



} 



Exit 

Entry 

If B03 is zero, the list of constants is 

nonexistent 
CONSTA to title line of block 
Counter to 2nd line of 1st blockette of block 
Sends 1st block to tape (title block) 
Sends input line to subroutine 

Masks out no. of words of constants to FS2 
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11 


RJ 


IW 


IW1 


12 


TP 


FS 


FS3 


13 


RA 


FS5 


FS3 


14 


MJ 





IG 


JL*J 






CL 




CA 


IG16 





Sends list to tape via subroutine 
Count of blocks to FS3 
Accumulative block counter updated 



Routine to Put Dimension List on Tape 5 



IA 


UG 




MJ 





30000 


TP 


B04 


A 


ZJ 


UG3 


UG 


TP 


TF4 


NP 


tp 


6 


NP1 


RJ 


EW4 


EW 


TP 


UG16 


IW64 


TP 


TF5 


Q 


QT 


6 


FS2 


LQ 


FS2 


25 


RJ 


IW 


IW1 


TP 


FS 


FS6 


RA 


FS5 


FS6 


MJ 





UG 








DL 


CA 


UG17 





} 



Exit 

If B04 is zero, the dimension list is 

nonexistent 
DIMENS \ . .... .. . 

n * /r to title block 
Counter bj 

Title block to tape 

Input line to subroutine IW 

Length of List masked out to FS2 



Send list to tape 

Count of blocks to FS6 

Updating accumulative block counter 



Routine to Rewind Tapes 3 and 4 (or Tapes 6 and 7) and Move To Front of Op 

File 1 on Tape 5 



IA 

MJ 

1 SP 



Moves to 



AT 
RJ 
SP 
AT 
RJ 
SP 



Front of -10 AT 

Op File lLll RJ 

on Tape 12 MJ 

on Servo 13 10 

5 14 10 

15 40 



EG 



EG13 

TN 

GT2 

EG14 

TN 

GT2 

FS5 

EG15 

GT2 



3 

4 

5 




Exit 

Rewind Uniservo 3 or 6 

Rewind Uniservo 4 or 7 

Accumulative block counter (FS5) to right 
position to add to parameter for 
generalized tape handler 

Parameter to rewind 3 
Parameter to rewind 4 
Parameter to move backward 5 



CA EG16 
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End of Generation Print-Out Routine 



IA 
MJ 
TP 
RJ 
SP 
MS 
ZJ 
MJ 




10 

11 30 

12 01 

13 24 

14 01 

15 50 

16 52 

17 52 

20 51 

21 01 

22 01 

23 65 
CA 



BE 



BE10 

UP2 

BE7 



BE6 





BE11 

50270 

32305 

66345 

01665 

66305 

66012 

34462 

50016 

24015 

76032 

66245 

BE24 



30000 

UP3 

UP 



BE5 

BE 

BQ6 



13 

15131 

03054 

15022 

10134 

45467 

65147 

46634 

53066 

05166 

20101 

46622 



} 
} 



Exit 

Print-Out: END OF GENERATION. TO INTERRUPT 

COMPILATION SET A NOT = 0. START. 
Clears A 
Stop with Next Instruction in PAK 

If A^O, jump to rewind tapes and stop 

Parameter for Print-Out 
ENDAOF 
AGENER 
ATION. 
AATOAI 
NTERRU 
PTACOM 
PILATI 
ONASET 
AAANOT 
A= O.AA 
START. 



Routine to Write Excess-Three Symbol List on Tape (Uniservo 5) 





IA 


BU 







MJ 





30000 


1 


TP 


7 


A 


2 


ZJ 


BU3 


BU 


3 


TP 


A 


FS2 


4 


TP 


BU14 


NP 


5 


TP 


7 


NP1 


6 


RJ 


EW4 


EW 


7 


RJ 


BX 


BX1 


10 


TP 


BU15 


IW64 


11 


RJ 


IW 


IW1 


12 


RA 


FS5 


FS 


13 


MJ 





BU 


14 


65 


73472 


55146 


15 








BZ 




CA 


BU16 





} 



[ Ul i-i-t 

- \ 

ir7J 



To title block 



Exit 

Is 7 is zero, there are no single-valued 

variables 
Length of List to FS2 
SYMBOL 
Counte] 
Title block to tape 
Builds excess-three symbol list 
Input line to subroutine IW 
List to tape with end of entry block 
Cumulative count of blocks updated 

SYMBOL 

Initial address of excess-three symbol list 
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Routine to Build Excess-Three Symbol List 





IA 


BX 







MJ 





30000 


1 


TP 


7 


BX1 


2 


IJ 


BX1 


BX4 


3 


MJ 





BX 


4 


TP 


BX30 





5 


QT 


6 


A 


6 


AT 


BX11 


BX11 


7 


TN 


BX3I 





10 


RP 


BY30001 


BX12 


11 


TP 


CB1 


BW 


12 


RA 


BX11 


BX36 


13 


TU 


BX37 


BX15 


14 


TP 


BX33 


BX2 


15 


QT 


30000 


A 


16 


EJ 


BX34 


BX22 


17 


RA 


BX15 


BX32 


20 


IJ 


BX2 


BX15 


21 


MJ 





BX10 


22 


TU 


BX15 


BX24 


23 


RS 


BX24 


BX32 


24 


TP 


30000 


BZ 


25 


RA 


BX24 


BX35 


26 


IJ 


BX1 


BX17 


27 


MJ 





BX 


30 





7777 





31 








7777 


32 





1 





33 








BY 


34 








60000 


35 








1 


36 





BY1 





37 





BW 







CA 


BX40 





Exit 

One less than number of words in final 
list— ^-working storage BX1. If number of 
words is zero, bypass the routine 

Adjust to start first tnf after the 
Dimension List 

Mask — > Q for search 

One segment — > core 

Set up to get next block and start this one 

Mask all but last 4 digits — »A 
If = 60000 — > BX22 
Advance address 
Recycle to continue search 
Recycle to load a second segment 

Assemble the final list 



Check for completion 

Exit 

Four-digit extractor 

Negative of mask used for search 

u advance 

Length of segment - 1 

Used for EJ test 

v advance 

Length of segment 

Segment location 



Code Word for Tape Data Subroutines 





IA 


BV 







MJ 





30000 


1 


RP 


10005 


BV3 


2 


TP 


BO 


B03 


3 


TP 


BO 


14 


4 


TP 


10 





5 


QT 


BOl 


A 


6 


ZJ 


BV7 


BV16 


7 


DV 


B02 


B03 


10 


ZJ 


BV13 


BV11 


11 


RA 


B03 


BOH 


12 


MJ 





BV14 



Exit 



r Clear temporaries 

} 



Clear 14 

Constant pool 

(A) = = No constant pool 
(A) t - Divide and store q 
(A) = = No remainder 
Quotient + label + end 
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13 


RA 


B03 


BOH 


14 


SP 


B03 


41 


Constant 15 


TP 


A 


14 


Pool 16 


TP 


6 


Q 


17 


QT 


B012 


A 


20 


ZJ 


BV21 


BM 


21 


LQ 


A 


25 


22 


DV 


B02 


[B04] 


23 


ZJ 


BV26 


BV24 


24 


RA 


B04 


BOH 


25 


MJ 





BV27 


26 


RA 


B04 


B014 


27 


SP 


B04 


33 


30 


AT 


14 


14 


31 


MJ 





BM 




CA 


BV32 






IA 


BM 


+ Syi 





TP 


7 





1 


QT 


B01 


A 


2 


ZJ 


BM3 


BM12 


3 


DV 


B02 


B05 


4 


ZJ 


BM7 


BM5 


5 


RA 


B05 


BOH 


6 


MJ 





BM10 


7 


RA 


B05 


B014 


10 


SP 


B05 


25 


11 


AT 


14 


14 


12 


TP 


12 


Q 


13 


QT 


B013 


A 


14 


ZJ 


BM15 


BN 


15 


AT 


14 


14 


16 


MJ 





BN 




CA 


BM17 






IA 


BN 


14 v 





TP 


13 


Q 


1 


QT 


B01 


A 


2 


AT 


ES5 


[B06] 


3 


RA 


B06 


B010 


4 


TP 


5 


Q 


5 


QT 


B01 


A 


6 


ZJ 


BN7 


BN15 


7 


DV 


B02 


[B07] 


10 


ZJ 


BN14 


BN11 


11 


RA 


B07 


BOH 


12 


RA 


B07 


B06 


13 


MJ 





BN16 


14 


RA 


B07 


B014 


15 


RA 


B07 


B06 


16 


RA 


B07 


B03 



(A) f = remainder - add 1 + label + end 

-* 1436,35,34 
Dimension List 

(A) = = No Dimension List 

(A) ^ shift to v position for divide 

Divide and store Q 

(A) = = No remainder 

Add quotient + label + end 

(A) £ = remainder add quotient + 1 + label 
+ end 



+ Symbol List + Read List indicators 

Symbol List 

(A) = = No symbol List. Go to next step 
(A) £ divide by 170 
(A) = = no remainder 
Add quotient + label + end 

add quotient + 1 
(A) 5* = remainder + label + end 
Shift 
Symbol List blks — *14 

r Read List indicator 

(A) = = No Read List indicators 
(A) 5* add — » 14 



j Number blocks corrected problem 



} 



Corr. prob. + (ES5)— >temp. 1 . „.., 
- " » + l->temp.}°P Flle l 

List 1 

(A) = = No List 1 

No. blks List 1 — > temp. 

(A) = = No remainder Add ftient + label 

+ end 
Subtotal 

(A) / = remainder add Quotient + 1 + label 

+ end 
Subtotal 
Add constant pool 
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17 RA 

20 SP 

21 AT 

22 TP 

23 QT 

24 AT 

25 TJ 

26 TP 

27 RJ 



B07 

B07 

14 

14 

B01 

B05 

BO 15 

B016 

UP2 



30 MJ 



B04 


14 



A 

A 

BV 

UP3 

UP 

BV 



Add Dimension List 

Totals thru constant pool — > 14 y 



(A) = 14 v + Symbol List 
(u) > (A) its o.k. exit 
(u) not > (A) print warning: WARNING. 

UNISERVO 5 DATA WILL EXCEED 2500 BLOCKS. 

ATTEMPT BEING MADE TO CONTINUE COMPILATION. 
Exit 



IA 




10 

11 

12 

13 

14 

15 

16 00 

17 71 

20 32 

21 34 

22 01 

23 24 

24 01 

25 27 

26 01 

27 65 

30 66 

31 25 

32 47 

33 51 

34 01 

35 34 

36 51 

37 66 
CA 



BO 





















7777 

3 





B017 

24545 

22010 

65305 

10012 

01713 

30722 

01051 

25465 

22010 

30475 

30345 

24273 

01010 

01265 

50673 

47523 

34515 

B040 





77777 Mask 

170 Words 8 1 blk 

Constant pool 

Dimension List 

Symbol List 

Corr. prob. + (ES5) + 1 

Temp. 

1 

2 Label + end 
Mask 

Mask 

3 Remainder 4- label + end 
4705 2500 10 + 1 

21 Parameter for print 

03450 WARNIN 

16750 G.AAUN 

47051 ISERVO 

72466 A5ADAT 

44646 AAWILL 

63030 AEXCEE 

00303 DA2500 

12645 ABLOCK 

12466 S.AAAT 

26601 TEMPTA 

03201 BEINGA 

00166 MADEAT 

10101 OAAAAA 

15066 AACONT 

00126 INUEAC 

44624 OMPILA 

02277 TION. 
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Temporary Region FS 

Number of blocks of any List transferred to tape 

1 Number of full blocks of a List transferred 

2 Number of lines in partial block or first-number of lines in list 

3 Number of blocks of constants on tape 

4 Number of blocks of Library List on tape 

5 Number of blocks accumulative back to beginning of Op File 1 

6 Number of blocks of Dimension List 
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